mirror of
https://gitlab.com/scemama/qmcchem.git
synced 2024-09-06 01:54:46 +02:00
39 lines
912 B
FortranFixed
39 lines
912 B
FortranFixed
|
BEGIN_TEMPLATE
|
||
|
|
||
|
subroutine $Xinfo (here,token,value)
|
||
|
implicit none
|
||
|
character*(*), intent(in) :: here
|
||
|
character*(*), intent(in) :: token
|
||
|
$Y, intent(in) :: value
|
||
|
if (print_level>1) then
|
||
|
write(0,*) trim(here)//':'
|
||
|
$Z
|
||
|
endif
|
||
|
end
|
||
|
|
||
|
SUBST [ X, Y, Z ]
|
||
|
r; real;
|
||
|
write(0,*) ' -> ', trim(token), '=', value;;
|
||
|
d; double precision;
|
||
|
write(0,*) ' -> ', trim(token), '=', value;;
|
||
|
i; integer;
|
||
|
write(0,*) ' -> ', trim(token), '=', value;;
|
||
|
c; character*(*);
|
||
|
write(0,*) ' -> ', trim(token), '=', value;;
|
||
|
l; logical;
|
||
|
if (value) then
|
||
|
write(0,*) ' -> ', trim(token), '= True'
|
||
|
else
|
||
|
write(0,*) ' -> ', trim(token), '= False'
|
||
|
endif ;;
|
||
|
END_TEMPLATE
|
||
|
|
||
|
subroutine info(here,message)
|
||
|
implicit none
|
||
|
character*(*), intent(in) :: here, message
|
||
|
if (print_level > 1) then
|
||
|
write(0,*) trim(here)//':'
|
||
|
write(0,*) ' -> ', trim(message)
|
||
|
endif
|
||
|
end
|