[sajad6]

I have tried many compilers to compile kiva3v code but for each compiler I face different errors. For example for g77 compiler, I use this make file for compiling code :

#makefile for the program KIVA3 for the H-P, 012296/1435
FC= g77
FFLAGS= -c
LD= g77

all: kiva3 k3prep k3post

kiva3 : kiva3.o utility.o second.o
$(LD) -o kiva3 kiva3.o utility.o second.o

second.o : second.f
$(FC) -c +U77 +DA1.0 second.f

utility.o : utility.f
$(FC) $(FFLAGS) utility.f

k3prep.o : k3prep.f
$(FC) $(FFLAGS) k3prep.f

k3post.o : k3post.f
$(FC) $(FFLAGS) k3post.f

kiva3.o : kiva3.f
$(FC) $(FFLAGS) kiva3.f

kiva3.f : comkiva.i comfuel.i
touch kiva3.f

k3prep : k3prep.o second.o
$(LD) -o k3prep k3prep.o utility.o second.o /usr/local/lib/libcgsdbl.a

k3prep.f : comprep.i
touch k3prep.f

k3post : k3post.o utility.o second.o
$(LD) -o k3post k3post.o utility.o second.o /usr/local/lib/libcgsdbl.a -lX11

k3post.f : compost.i
touch k3post.f


Unfortunately, I encounter this error :

g77 -c kiva3.f
kiva3.f: In subroutine `chem':
kiva3.f:192:
data pi /3.14159 26535 89793 23846/
1
kiva3.f:4481: (continued):
data capa, capb / 18.0 , 0.5 /
2
Common block `kiva8' initialized at (2) already initialized at (1) -- only one program unit may specify initial values for a particular common block
kiva3.f: In subroutine `setup':
kiva3.f:17368: warning:
1 'the cylinder wall')
^
Missing comma in FORMAT statement at (^)
kiva3.f: In subroutine `wallfilm':
kiva3.f:25938: warning:
if(impinge.eq.1) call spread
^
Reference to unimplemented intrinsic `SPREAD' at (^) (assumed EXTERNAL)
nmake3:24: recipe for target 'kiva3.o' failed
make: *** [kiva3.o] Error 1

Could anybody explain why I get this error?