189 lines
4.8 KiB
Fortran
189 lines
4.8 KiB
Fortran
SUBROUTINE ALLOCATION(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_)
|
|
USE DIM_MOD
|
|
USE ADSORB_MOD
|
|
USE APPROX_MOD
|
|
USE ATOMS_MOD
|
|
USE AUGER_MOD
|
|
USE BASES_MOD
|
|
USE CLUSLIM_MOD
|
|
USE COOR_MOD
|
|
USE DEBWAL_MOD
|
|
USE INDAT_MOD
|
|
USE INIT_A_MOD
|
|
USE INIT_L_MOD
|
|
USE INIT_J_MOD
|
|
USE INIT_M_MOD
|
|
USE INFILES_MOD
|
|
USE INUNITS_MOD
|
|
USE LIMAMA_MOD
|
|
USE LPMOY_MOD
|
|
USE MASSAT_MOD
|
|
USE MILLER_MOD
|
|
USE OUTUNITS_MOD
|
|
USE PARCAL_MOD
|
|
USE PARCAL_A_MOD
|
|
USE RELADS_MOD
|
|
USE RELAX_MOD
|
|
USE RESEAU_MOD
|
|
USE SPIN_MOD
|
|
USE TESTS_MOD
|
|
USE TRANS_MOD
|
|
USE TL_AED_MOD
|
|
USE TYPCAL_MOD
|
|
USE TYPCAL_A_MOD
|
|
USE TYPEM_MOD
|
|
USE TYPEXP_MOD
|
|
USE VALIN_MOD
|
|
USE XMRHO_MOD
|
|
USE CRANGL_MOD
|
|
USE VECSYS_MOD
|
|
USE VIBRAT_MOD
|
|
USE COEFRLM_MOD
|
|
USE EXPROT_MOD
|
|
USE EXPFAC_MOD
|
|
USE LOGAMAD_MOD
|
|
USE EXPFAC2_MOD
|
|
USE FACTSQ_MOD
|
|
USE ALGORITHM_MOD
|
|
USE EXAFS_MOD
|
|
USE HEADER_MOD
|
|
USE MOYEN_MOD
|
|
USE VALIN_AV_MOD
|
|
USE VALFIN_MOD
|
|
USE VALEX_A_MOD
|
|
USE AMPLI_MOD
|
|
USE CONVACC_MOD
|
|
USE CONVTYP_MOD
|
|
USE C_G_MOD
|
|
USE C_G_A_MOD
|
|
USE C_G_M_MOD
|
|
USE DEXPFAC2_MOD
|
|
USE DFACTSQ_MOD
|
|
USE EIGEN_MOD
|
|
USE FDIF_MOD
|
|
USE FIXSCAN_MOD
|
|
USE FIXSCAN_A_MOD
|
|
USE LINLBD_MOD
|
|
USE MOYEN_A_MOD
|
|
USE OUTFILES_MOD
|
|
USE RA_MOD
|
|
USE SPECTRUM_MOD
|
|
USE DIRECT_MOD
|
|
USE DIRECT_A_MOD
|
|
USE PATH_MOD
|
|
USE ROT_MOD
|
|
USE TESTPA_MOD
|
|
USE TESTPB_MOD
|
|
USE TLDW_MOD
|
|
USE VARIA_MOD
|
|
USE LBD_MOD
|
|
USE SCATMAT_MOD
|
|
USE EXTREM_MOD
|
|
USE PRINTP_MOD
|
|
IMPLICIT INTEGER (A-Z)
|
|
NATP_M = NATP_M_
|
|
NATCLU_M = NATCLU_M_
|
|
NAT_EQ_M = NAT_EQ_M_
|
|
N_CL_L_M = N_CL_L_M_
|
|
NE_M = NE_M_
|
|
NL_M = NL_M_
|
|
LI_M = LI_M_
|
|
NEMET_M = NEMET_M_
|
|
NO_ST_M = NO_ST_M_
|
|
NDIF_M = NDIF_M_
|
|
NSO_M = NSO_M_
|
|
NTEMP_M = NTEMP_M_
|
|
NODES_EX_M = NODES_EX_M_
|
|
NSPIN_M = NSPIN_M_
|
|
NTH_M = NTH_M_
|
|
NPH_M = NPH_M_
|
|
NDIM_M = NDIM_M_
|
|
N_TILT_M = N_TILT_M_
|
|
N_ORD_M = N_ORD_M_
|
|
NPATH_M = NPATH_M_
|
|
NGR_M = NGR_M_
|
|
CALL INIT_DIM()
|
|
CALL ALLOC_ADSORB()
|
|
CALL ALLOC_APPROX()
|
|
CALL ALLOC_ATOMS()
|
|
CALL ALLOC_AUGER()
|
|
CALL ALLOC_BASES()
|
|
CALL ALLOC_CLUSLIM()
|
|
CALL ALLOC_COOR()
|
|
CALL ALLOC_DEBWAL()
|
|
CALL ALLOC_INDAT()
|
|
CALL ALLOC_INIT_A()
|
|
CALL ALLOC_INIT_L()
|
|
CALL ALLOC_INIT_J()
|
|
CALL ALLOC_INIT_M()
|
|
CALL ALLOC_INFILES()
|
|
CALL ALLOC_INUNITS()
|
|
CALL ALLOC_LIMAMA()
|
|
CALL ALLOC_LPMOY()
|
|
CALL ALLOC_MASSAT()
|
|
CALL ALLOC_MILLER()
|
|
CALL ALLOC_OUTUNITS()
|
|
CALL ALLOC_PARCAL()
|
|
CALL ALLOC_PARCAL_A()
|
|
CALL ALLOC_RELADS()
|
|
CALL ALLOC_RELAX()
|
|
CALL ALLOC_RESEAU()
|
|
CALL ALLOC_SPIN()
|
|
CALL ALLOC_TESTS()
|
|
CALL ALLOC_TRANS()
|
|
CALL ALLOC_TL_AED()
|
|
CALL ALLOC_TYPCAL()
|
|
CALL ALLOC_TYPCAL_A()
|
|
CALL ALLOC_TYPEM()
|
|
CALL ALLOC_TYPEXP()
|
|
CALL ALLOC_VALIN()
|
|
CALL ALLOC_XMRHO()
|
|
CALL ALLOC_CRANGL()
|
|
CALL ALLOC_VECSYS()
|
|
CALL ALLOC_VIBRAT()
|
|
CALL ALLOC_COEFRLM()
|
|
CALL ALLOC_EXPROT()
|
|
CALL ALLOC_EXPFAC()
|
|
CALL ALLOC_LOGAMAD()
|
|
CALL ALLOC_EXPFAC2()
|
|
CALL ALLOC_FACTSQ()
|
|
CALL ALLOC_ALGORITHM()
|
|
CALL ALLOC_EXAFS()
|
|
CALL ALLOC_HEADER()
|
|
CALL ALLOC_MOYEN()
|
|
CALL ALLOC_VALIN_AV()
|
|
CALL ALLOC_VALFIN()
|
|
CALL ALLOC_VALEX_A()
|
|
CALL ALLOC_AMPLI()
|
|
CALL ALLOC_CONVACC()
|
|
CALL ALLOC_CONVTYP()
|
|
CALL ALLOC_C_G()
|
|
CALL ALLOC_C_G_A()
|
|
CALL ALLOC_C_G_M()
|
|
CALL ALLOC_DEXPFAC2()
|
|
CALL ALLOC_DFACTSQ()
|
|
CALL ALLOC_EIGEN()
|
|
CALL ALLOC_FDIF()
|
|
CALL ALLOC_FIXSCAN()
|
|
CALL ALLOC_FIXSCAN_A()
|
|
CALL ALLOC_LINLBD()
|
|
CALL ALLOC_MOYEN_A()
|
|
CALL ALLOC_OUTFILES()
|
|
CALL ALLOC_RA()
|
|
CALL ALLOC_SPECTRUM()
|
|
CALL ALLOC_DIRECT()
|
|
CALL ALLOC_DIRECT_A()
|
|
CALL ALLOC_PATH()
|
|
CALL ALLOC_ROT()
|
|
CALL ALLOC_TESTPA()
|
|
CALL ALLOC_TESTPB()
|
|
CALL ALLOC_TLDW()
|
|
CALL ALLOC_VARIA()
|
|
CALL ALLOC_LBD()
|
|
CALL ALLOC_SCATMAT()
|
|
CALL ALLOC_EXTREM()
|
|
CALL ALLOC_PRINTP()
|
|
END SUBROUTINE ALLOCATION |