IAP GITLAB

Commit beece705 authored by Ralf Ulrich's avatar Ralf Ulrich

Merge branch '297-remove-nuc-directory' into 'master'

Resolve "Remove nuc directory"

Closes #297

See merge request AirShowerPhysics/corsika!246
parents 0b7c698e 8cfa61ee
This diff is collapsed.
FORTRAN=gfortran
#FLAGS=-r8 -C -w95
FLAGS=
all : main_f77
main04.o : main04.f
$(FORTRAN) $(FLAGS) -c $<
main_f77 : main04.o
$(FORTRAN) $(FLAGS) -o $@ $^
clean :
-rm -f *.o *.mod *~ main
This diff is collapsed.
PROGRAM main
COMMON
* /DATABA_SIZVEC/ NUMsphe, NUModd, NUMdefo,
* NUMd3n, NUMd3p, NUMsupd,
* NUMmono, NUMdipo, NUMtwop,
* NUMdvpn, NUMterm, NUMqpSH
C
CALL InitializeData()
C
CALL GetData()
C
CALL PrintData()
C
STOP
C
END
C
INCLUDE 'input04.f'
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment