mirror of
https://github.com/pfloos/quack
synced 2024-11-05 05:33:50 +01:00
43 lines
564 B
Bash
Executable File
43 lines
564 B
Bash
Executable File
#!/bin/bash
|
|
|
|
if [ $# != 1 ]
|
|
then
|
|
echo "One argument required [name of subroutine]"
|
|
fi
|
|
if [ $# = 1 ]
|
|
then
|
|
|
|
NAME=$1
|
|
|
|
echo "subroutine ${NAME}()
|
|
|
|
! Description of the subroutine
|
|
|
|
implicit none
|
|
|
|
include 'parameters.h'
|
|
|
|
! Input variables
|
|
|
|
integer,intent(in) ::
|
|
double precision,intent(in) ::
|
|
|
|
! Local variables
|
|
|
|
integer ::
|
|
double precision ::
|
|
|
|
! Output variables
|
|
|
|
integer,intent(out) ::
|
|
double precision,intent(out) ::
|
|
|
|
! Initalization
|
|
|
|
end subroutine ${NAME}" > ${NAME}.f90
|
|
|
|
fi
|
|
|
|
|
|
|