From 6986dde63672298d8d9a02ed52806a508052191e Mon Sep 17 00:00:00 2001 From: Sylvain Tricot Date: Wed, 9 Feb 2022 19:07:03 +0100 Subject: [PATCH] Added main anf Makefile rules for CE. --- .../spec/fortran/phd_ce_noso_nosp_nosym.mk | 11 ++++++++++ .../fortran/phd_ce_noso_nosp_nosym/main.f | 21 +++++++++++++++++++ 2 files changed, 32 insertions(+) create mode 100644 src/msspec/spec/fortran/phd_ce_noso_nosp_nosym.mk create mode 100644 src/msspec/spec/fortran/phd_ce_noso_nosp_nosym/main.f diff --git a/src/msspec/spec/fortran/phd_ce_noso_nosp_nosym.mk b/src/msspec/spec/fortran/phd_ce_noso_nosp_nosym.mk new file mode 100644 index 0000000..acbd20b --- /dev/null +++ b/src/msspec/spec/fortran/phd_ce_noso_nosp_nosym.mk @@ -0,0 +1,11 @@ +memalloc_src := memalloc/dim_mod.f memalloc/modules.f memalloc/allocation.f +cluster_gen_src := $(wildcard cluster_gen/*.f) +common_sub_src := $(wildcard common_sub/*.f) +renormalization_src := $(wildcard renormalization/*.f) +phd_ce_noso_nosp_nosym_src := $(filter-out phd_ce_noso_nosp_nosym/lapack_axb.f, $(wildcard phd_ce_noso_nosp_nosym/*.f)) + +SRCS = $(memalloc_src) $(cluster_gen_src) $(common_sub_src) $(renormalization_src) $(phd_ce_noso_nosp_nosym_src) +MAIN_F = phd_ce_noso_nosp_nosym/main.f +SO = _phd_ce_noso_nosp_nosym.so + +include ../../../options.mk diff --git a/src/msspec/spec/fortran/phd_ce_noso_nosp_nosym/main.f b/src/msspec/spec/fortran/phd_ce_noso_nosp_nosym/main.f new file mode 100644 index 0000000..d1f2af8 --- /dev/null +++ b/src/msspec/spec/fortran/phd_ce_noso_nosp_nosym/main.f @@ -0,0 +1,21 @@ + SUBROUTINE 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_) + + USE DIM_MOD + IMPLICIT INTEGER (A-Z) +CF2PY INTEGER, INTENT(IN,COPY) :: NATP_M_, NATCLU_M_, NAT_EQ_M_, N_CL_L_M_ +CF2PY INTEGER, INTENT(IN,COPY) :: NE_M_, NL_M_, LI_M_, NEMET_M_, NO_ST_M_, NDIF_M_, NSO_M_ +CF2PY INTEGER, INTENT(IN,COPY) :: NTEMP_M_, NODES_EX_M_, NSPIN_M_, NTH_M_, NPH_M_, NDIM_M_ +CF2PY INTEGER, INTENT(IN,COPY) :: N_TILT_M_, N_ORD_M_, NPATH_M_, NGR_M_ + + CALL 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_) + + CALL MAIN_PHD_NS_CE() + CALL CLOSE_ALL_FILES() + + END SUBROUTINE RUN