mirror of https://github.com/pfloos/quack
43 lines
590 B
Bash
Executable File
43 lines
590 B
Bash
Executable File
#!/bin/bash
|
|
|
|
if [ $# != 2 ]
|
|
then
|
|
echo "Two arguments required [name of function] [name of result]"
|
|
fi
|
|
if [ $# = 2 ]
|
|
then
|
|
|
|
NAME=$1
|
|
|
|
echo "function ${NAME}() result(${RES})
|
|
|
|
! Description of the function
|
|
|
|
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 function ${NAME}" > ${NAME}.f90
|
|
|
|
fi
|
|
|
|
|
|
|