Compiling F77 vs ifort FC: Troubleshooting Nray

[Milentije]

FC= ifort
LD = ifort -align all
FCFLAGS = -O2 -g -ipo -traceback -warn noalign
LDFLAGS = $(FCFLAGS)

# Executables
nray: main.o findnode.o plots.o segmnt.o empty.o aldone.o erase.o pcolor.o box.o plot.o axtick.o axis.o line.o pltsrcbox.o find.o dot.o grad.o intersect.o straight.o backproj.o ddtime.o kernel.o resolution.o plotnd.o bndinterpret.o time.o
$(FC) $(LDFLAGS) $(FCFLAGS) -o nray main.o findnode.o plots.o segmnt.o empty.o aldone.o erase.o pcolor.o box.o plot.o axtick.o axis.o line.o pltsrcbox.o find.o dot.o grad.o intersect.o straight.o backproj.o ddtime.o kernel.o resolution.o plotnd.o bndinterpret.o time.o
main.o:main.f ray.par ray.com
$(FC) $(FCFLAGS) -c main.f
For example subroutine backproj.o is compiled but I when I ran nray,it doesn't fill the file it is supposed to do.

 

[Future Bruno]

§§ COMUpdateI have added what is in backproj.f §§ --- README.md §§ 1020++Backproj.f++ SUBROUTINE BACKPROJ(FROMNODE,TONODE,X,Y,DIST,T)C Program: BackprojC Author: Robert A. HegbloomC Date: April 24, 1991C Purpose: To back project a ray from the TO node to theC FROM node and calculate the travel time.CC Variables:C FROMNODE--The FROM node number.C TONODE---The TO node number.C X--------The X coordinate of the TO node.C Y--------The Y coordinate of the TO node.C DIST-----The distance from the FROM node to the TO node.C T--------The travel time from the FROM node to the TO node.C IMPLICIT NONE INTEGER FROMNODE,TONODE REAL X,Y,DIST,T LOGICAL LCC Calculate the travel time. CALL DDTIME(L,FROMNODE,TONODE,X,Y,DIST,T)C RETURN END