mirror of https://github.com/pfloos/quack
43 lines
590 B
Bash
43 lines
590 B
Bash
|
#!/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
|
||
|
|
|
||
|
|
|
||
|
|
|