research/incomp-flame-1d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

rename Compact to m_compact

Browse source
This commit is contained in:
ignis 2019-08-29 21:01:02 +09:00
parent 9f0647865c
commit 01877fe909
3 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
code/Compact.f90 → code/m_compact.f90
View file

@ -1,4 +1,4 @@
MODULE Compact MODULE m_compact
IMPLICIT NONE IMPLICIT NONE
PRIVATE PRIVATE
REAL, DIMENSION(:), ALLOCATABLE :: lxf,lxs,wxf,wxs, & REAL, DIMENSION(:), ALLOCATABLE :: lxf,lxs,wxf,wxs, &
@ -383,4 +383,4 @@
END SUBROUTINE d2fnonp END SUBROUTINE d2fnonp
END MODULE Compact END MODULE m_compact

8
code/makefile
View file

@ -10,8 +10,8 @@ endif
compiler = gfortran compiler = gfortran
ex : test.o ysolve.o Compact.o ex : test.o ysolve.o m_compact.o
${compiler} -o ex test.o ysolve.o Compact.o ${compiler} -o ex test.o ysolve.o m_compact.o
test.o : test.f90 ysolve.mod compact.mod test.o : test.f90 ysolve.mod compact.mod
${compiler} -c ${flags} test.f90 ${compiler} -c ${flags} test.f90
@ -19,8 +19,8 @@ test.o : test.f90 ysolve.mod compact.mod
ysolve.o ysolve.mod : ysolve.f90 compact.mod ysolve.o ysolve.mod : ysolve.f90 compact.mod
${compiler} -c ${flags} ysolve.f90 ${compiler} -c ${flags} ysolve.f90
Compact.o compact.mod : Compact.f90 m_compact.o compact.mod : m_compact.f90
${compiler} -c ${flags} Compact.f90 ${compiler} -c ${flags} m_compact.f90
test: ex test: ex
sh test.sh sh test.sh

2
code/ysolve.f90
View file

@ -1,5 +1,5 @@
MODULE ysolve MODULE ysolve
USE Compact USE m_compact
IMPLICIT NONE IMPLICIT NONE
PRIVATE PRIVATE
REAL, PARAMETER :: pi=3.14159265358979323846 REAL, PARAMETER :: pi=3.14159265358979323846