Skip to content
Snippets Groups Projects
Commit 191f51ec authored by kamischi's avatar kamischi
Browse files

add f77 test case

parent 0f463cec
No related branches found
No related tags found
No related merge requests found
# the fortran compiler
FC = gfortran
# the options for the fortran compiler
FFLAGS = -g -gdwarf-2 -fbounds-check -fcheck=all -O0
# the implicit rule for compiling for files
%.o: %.for ; $(FC) $(FFLAGS) -c -o $@ $<
all: eels
eels: change_working_dir.o eels.for
$(FC) $(FFLAGS) -o eels eels.for change_working_dir.o
clean:
rm -f *.o
rm -rf *.dSYM
rm -f eels
.PHONY: all clean
Command for compilation:
> make
Command for execution:
> doRun.sh
Cleanup:
> make clean
KMS
\ No newline at end of file
subroutine change_working_dir()
C This routine gets the first argument of the commandline and takes it
C as the path to change the working directory
C used intrinsic routines:
C iarg returns the number of commandline arguments without the program cname.
C chdir changes the directory and returns 0 on success.
C trim removes blanks from strings.
character(256) argument
integer status
if (iargc() == 1) then
call getarg(1, argument)
status = chdir(trim(argument))
if (status /= 0) then
write (*,*) '*** Change directory failed ***'
write (*,*) 'Directory tried: ', trim(argument)
write (*,*) 'Error code (see: man chdir): ', status
write (*,*) 'Continuing in the start directory'
endif
endif
return
end
#!/bin/sh -v
cp ../inputFIles/eelsin001 eelsin
./eels
mv seteps.log epsLog/seteps001.log
cp ../inputFIles/eelsin004 eelsin
./eels
mv seteps.log epsLog/seteps004.log
cp ../inputFIles/eelsin006 eelsin
./eels
mv seteps.log epsLog/seteps006.log
rm eelsin
rm EELSOU
This diff is collapsed.
File added
File added
File added
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment