mirror of
https://gitlab.com/scemama/eplf
synced 2024-06-21 12:42:14 +02:00
38 lines
945 B
FortranFixed
38 lines
945 B
FortranFixed
|
BEGIN_SHELL [ /usr/bin/python ]
|
||
|
|
||
|
for i in [('r' ,'real'), \
|
||
|
('d','double precision'), \
|
||
|
('l','logical'), \
|
||
|
('i','integer'), \
|
||
|
('c','character*(*)'), \
|
||
|
]:
|
||
|
print "subroutine "+i[0]+"info (here,token,value)"
|
||
|
print " implicit none"
|
||
|
print " character*(*) :: here"
|
||
|
print " character*(*) :: token"
|
||
|
print " "+i[1]+" :: value"
|
||
|
print " if (mpi_master) then"
|
||
|
print " print *, trim(here)//':'"
|
||
|
if i[0] == 'l':
|
||
|
print " if (value) then"
|
||
|
print " print *, ' -> ', trim(token), '= True' "
|
||
|
print " else"
|
||
|
print " print *, ' -> ', trim(token), '= False' "
|
||
|
print " endif"
|
||
|
else:
|
||
|
print " print *, ' -> ', trim(token), '=', value"
|
||
|
print " endif"
|
||
|
print "end"
|
||
|
|
||
|
END_SHELL
|
||
|
|
||
|
subroutine info(here,message)
|
||
|
implicit none
|
||
|
character*(*) :: here, message
|
||
|
if (mpi_master) then
|
||
|
print *, trim(here)//':'
|
||
|
print *, ' -> ', trim(message)
|
||
|
endif
|
||
|
end
|
||
|
|