14 lines
555 B
FortranFixed
14 lines
555 B
FortranFixed
|
PROGRAM MAIN
|
||
|
|
IMPLICIT INTEGER (A-Z)
|
||
|
|
|
||
|
|
READ *, NATP_M_, NATCLU_M_, NAT_EQ_M_, N_CL_L_M_,
|
||
|
|
& NE_M_, NL_M_, LI_M_, NEMET_M_, NO_ST_M_, NDIF_M_, NSO_M_,
|
||
|
|
& NTEMP_M_, NODES_EX_M_, NSPIN_M_, NTH_M_, NPH_M_, NDIM_M_,
|
||
|
|
& N_TILT_M_, N_ORD_M_, NPATH_M_, NGR_M_
|
||
|
|
|
||
|
|
CALL RUN(NATP_M_, NATCLU_M_, NAT_EQ_M_, N_CL_L_M_,
|
||
|
|
& NE_M_, NL_M_, LI_M_, NEMET_M_, NO_ST_M_, NDIF_M_, NSO_M_,
|
||
|
|
& NTEMP_M_, NODES_EX_M_, NSPIN_M_, NTH_M_, NPH_M_, NDIM_M_,
|
||
|
|
& N_TILT_M_, N_ORD_M_, NPATH_M_, NGR_M_)
|
||
|
|
END PROGRAM MAIN
|