Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

problems with compiling

Status
Not open for further replies.

sunter

Programmer
Aug 23, 2009
1
PL
Hello,
Lately to solve some problem in my current project at work I'm using program written in Fortran. This program was delivered by my colleague and it worked on his computer, but I can't compile it withour warrnings. Here's what I receive during compilation:

blas/blas.F: In subroutine `matinv':
blas/blas.F:143: warning:
call scopy( i, a(1,i), 1, Work , 1)
1
blas/blas.F:144: (continued):
call scopy( n-i, 0. , 0, Work(i+1), 1)
2
Argument #2 of `scopy' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
./commons/cdofs.blk: In subroutine `findap':
./commons/cdofs.blk:1: warning:
common /cnode1s/ XNODE1S(3,MAXND1S)
1
./commons/cdofs.blk:1: (continued):
common /cnode1s/ XNODE1S(3,MAXND1S)
2
Common block `cnode1s' is 240000 bytes in length at (1) but 120000 bytes at (2)
./commons/cdofs.blk:4: warning:
common /cusol1s/ USOL1S (MXEQNS,MAXND1S)
1
./commons/cdofs.blk:4: (continued):
common /cusol1s/ USOL1S (MXEQNS,MAXND1S)
2
Common block `cusol1s' is 240000 bytes in length at (1) but 120000 bytes at (2)
./commons/cdofs.blk:7: warning:
common /cnode2s/ XNODE2S(3,MAXDF2S)
1
./commons/cdofs.blk:7: (continued):
common /cnode2s/ XNODE2S(3,MAXDF2S)
2
Common block `cnode2s' is 960000 bytes in length at (1) but 480000 bytes at (2)
./commons/cdofs.blk:10: warning:
common /cusol2s/ USOL2S (MXEQNS,MAXDF2S)
1
./commons/cdofs.blk:10: (continued):
common /cusol2s/ USOL2S (MXEQNS,MAXDF2S)
2
Common block `cusol2s' is 960000 bytes in length at (1) but 480000 bytes at (2)
./commons/cdofs.blk:14: warning:
common /cnode3s/ XNODE3S(3,MAXDF3S)
1
./commons/cdofs.blk:14: (continued):
common /cnode3s/ XNODE3S(3,MAXDF3S)
2
Common block `cnode3s' is 1920000 bytes in length at (1) but 960000 bytes at (2)
./commons/cdofs.blk:17: warning:
common /cusol3s/ USOL3S (MXEQNS,MAXDF3S)
1
./commons/cdofs.blk:17: (continued):
common /cusol3s/ USOL3S (MXEQNS,MAXDF3S)
2
Common block `cusol3s' is 1920000 bytes in length at (1) but 960000 bytes at (2)
./commons/cdofs.blk:1: warning:
common /cnode1s/ XNODE1S(3,MAXND1S)
1
./commons/cdofs.blk:1: (continued):
common /cnode1s/ XNODE1S(3,MAXND1S)
2
Common block `cnode1s' is 240000 bytes in length at (1) but 120000 bytes at (2)
./commons/cdofs.blk:4: warning:
common /cusol1s/ USOL1S (MXEQNS,MAXND1S)
1
./commons/cdofs.blk:4: (continued):
common /cusol1s/ USOL1S (MXEQNS,MAXND1S)
2
Common block `cusol1s' is 240000 bytes in length at (1) but 120000 bytes at (2)
./commons/cdofs.blk:7: warning:
common /cnode2s/ XNODE2S(3,MAXDF2S)
1
./commons/cdofs.blk:7: (continued):
common /cnode2s/ XNODE2S(3,MAXDF2S)
2
Common block `cnode2s' is 960000 bytes in length at (1) but 480000 bytes at (2)
./commons/cdofs.blk:10: warning:
common /cusol2s/ USOL2S (MXEQNS,MAXDF2S)
1
./commons/cdofs.blk:10: (continued):
common /cusol2s/ USOL2S (MXEQNS,MAXDF2S)
2
Common block `cusol2s' is 960000 bytes in length at (1) but 480000 bytes at (2)
./commons/cdofs.blk:14: warning:
common /cnode3s/ XNODE3S(3,MAXDF3S)
1
./commons/cdofs.blk:14: (continued):
common /cnode3s/ XNODE3S(3,MAXDF3S)
2
Common block `cnode3s' is 1920000 bytes in length at (1) but 960000 bytes at (2)
./commons/cdofs.blk:17: warning:
common /cusol3s/ USOL3S (MXEQNS,MAXDF3S)
1
./commons/cdofs.blk:17: (continued):
common /cusol3s/ USOL3S (MXEQNS,MAXDF3S)
2
Common block `cusol3s' is 1920000 bytes in length at (1) but 960000 bytes at (2)
./commons/cdofs.blk:17: warning:
common /cusol3s/ USOL3S (MXEQNS,MAXDF3S)
1
./commons/cdofs.blk:17: (continued):
common /cusol3s/ USOL3S (MXEQNS,MAXDF3S)
2
Common block `cusol3s' is 1920000 bytes in length at (1) but 960000 bytes at (2)
./commons/cdofs.blk:14: warning:
common /cnode3s/ XNODE3S(3,MAXDF3S)
1
./commons/cdofs.blk:14: (continued):
common /cnode3s/ XNODE3S(3,MAXDF3S)
2
Common block `cnode3s' is 1920000 bytes in length at (1) but 960000 bytes at (2)
./commons/cdofs.blk:10: warning:
common /cusol2s/ USOL2S (MXEQNS,MAXDF2S)
1
./commons/cdofs.blk:10: (continued):
common /cusol2s/ USOL2S (MXEQNS,MAXDF2S)
2
Common block `cusol2s' is 960000 bytes in length at (1) but 480000 bytes at (2)
./commons/cdofs.blk:7: warning:
common /cnode2s/ XNODE2S(3,MAXDF2S)
1
./commons/cdofs.blk:7: (continued):
common /cnode2s/ XNODE2S(3,MAXDF2S)
2
Common block `cnode2s' is 960000 bytes in length at (1) but 480000 bytes at (2)
./commons/cdofs.blk:4: warning:
common /cusol1s/ USOL1S (MXEQNS,MAXND1S)
1
./commons/cdofs.blk:4: (continued):
common /cusol1s/ USOL1S (MXEQNS,MAXND1S)
2
Common block `cusol1s' is 240000 bytes in length at (1) but 120000 bytes at (2)
./commons/cdofs.blk:1: warning:
common /cnode1s/ XNODE1S(3,MAXND1S)
1
./commons/cdofs.blk:1: (continued):
common /cnode1s/ XNODE1S(3,MAXND1S)
2
Common block `cnode1s' is 240000 bytes in length at (1) but 120000 bytes at (2)
meshmod/meshmod.F: In subroutine `enrich':
meshmod/meshmod.F:491: warning:
call DBGPRINT(1,'BREAK4','NEL',nel,dum,1,1,1,1,1,1)
1
meshmod/meshmod.F:1882: (continued):
call dbgprint(1,'ENRICH','NEL',nel,rdum,1,1,1,1,1,0)
2
Argument #5 of `dbgprint' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
meshmod/meshmod.F:491: warning:
call DBGPRINT(1,'BREAK4','NEL',nel,dum,1,1,1,1,1,1)
1
meshmod/meshmod.F:1883: (continued):
call dbgprint(1,'ENRICH','KIND',kind,rdum,1,1,1,1,1,0)
2
Argument #5 of `dbgprint' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
meshmod/meshmod.F:491: warning:
call DBGPRINT(1,'BREAK4','NEL',nel,dum,1,1,1,1,1,1)
1
meshmod/meshmod.F:1884: (continued):
call dbgprint(1,'ENRICH','NEWP',newp,rdum,1,1,1,1,1,1)
2
Argument #5 of `dbgprint' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
meshmod/meshmod.F:491: warning:
call DBGPRINT(1,'BREAK4','NEL',nel,dum,1,1,1,1,1,1)
1
meshmod/meshmod.F:1899: (continued):
call dbgprint(1,'ENRICH','NEIG',neig,rdum,2,1,2,1,3,1)
2
Argument #5 of `dbgprint' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
meshmod/meshmod.F:491: warning:
call DBGPRINT(1,'BREAK4','NEL',nel,dum,1,1,1,1,1,1)
1
meshmod/meshmod.F:1911: (continued):
call dbgprint(1,'ENRICH','J',j,rdum,1,1,1,1,1,1)
2
Argument #5 of `dbgprint' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
meshmod/meshmod.F:491: warning:
call DBGPRINT(1,'BREAK4','NEL',nel,dum,1,1,1,1,1,1)
1
meshmod/meshmod.F:1924: (continued):
call dbgprint(1,'ENRICH','NNEIG',nneig,rdum,1,1,1,1,1,0)
2
Argument #5 of `dbgprint' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
meshmod/meshmod.F:491: warning:
call DBGPRINT(1,'BREAK4','NEL',nel,dum,1,1,1,1,1,1)
1
meshmod/meshmod.F:1925: (continued):
call dbgprint(1,'ENRICH','NKIND',nkind,rdum,1,1,1,1,1,0)
2
Argument #5 of `dbgprint' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
meshmod/meshmod.F:491: warning:
call DBGPRINT(1,'BREAK4','NEL',nel,dum,1,1,1,1,1,1)
1
meshmod/meshmod.F:1926: (continued):
call dbgprint(1,'ENRICH','NEIGORD',neigord,rdum,1,1,4,1,1,0)
2
Argument #5 of `dbgprint' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
meshmod/meshmod.F:491: warning:
call DBGPRINT(1,'BREAK4','NEL',nel,dum,1,1,1,1,1,1)
1
meshmod/meshmod.F:1927: (continued):
call dbgprint(1,'ENRICH','IS',is,rdum,1,1,1,1,1,1)
2
Argument #5 of `dbgprint' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
meshmod/meshmod.F:491: warning:
call DBGPRINT(1,'BREAK4','NEL',nel,dum,1,1,1,1,1,1)
1
meshmod/meshmod.F:1947: (continued):
call dbgprint(1,'ENRICH','NORDER',norder,rdum,1,1,4,1,1,1)
2
Argument #5 of `dbgprint' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
meshmod/meshmod.F:491: warning:
call DBGPRINT(1,'BREAK4','NEL',nel,dum,1,1,1,1,1,1)
1
meshmod/meshmod.F:1956: (continued):
call dbgprint(1,'ENRICH','J',j,rdum,1,1,1,1,1,1)
2
Argument #5 of `dbgprint' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
meshmod/meshmod.F:491: warning:
call DBGPRINT(1,'BREAK4','NEL',nel,dum,1,1,1,1,1,1)
1
meshmod/meshmod.F:1976: (continued):
call dbgprint(1,'ENRICH','NNEIG',nneig,rdum,1,1,1,1,1,0)
2
Argument #5 of `dbgprint' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
meshmod/meshmod.F:491: warning:
call DBGPRINT(1,'BREAK4','NEL',nel,dum,1,1,1,1,1,1)
1
meshmod/meshmod.F:1977: (continued):
call dbgprint(1,'ENRICH','NKIND',nkind,rdum,1,1,1,1,1,0)
2
Argument #5 of `dbgprint' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
meshmod/meshmod.F:491: warning:
call DBGPRINT(1,'BREAK4','NEL',nel,dum,1,1,1,1,1,1)
1
meshmod/meshmod.F:1978: (continued):
call dbgprint(1,'ENRICH','NEIGORD',neigord,rdum,1,1,4,1,1,1)
2
Argument #5 of `dbgprint' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
meshmod/meshmod.F:491: warning:
call DBGPRINT(1,'BREAK4','NEL',nel,dum,1,1,1,1,1,1)
1
meshmod/meshmod.F:2010: (continued):
call dbgprint(1,'ENRICH','NORDER',norder,rdum,1,1,4,1,1,1)
2
Argument #5 of `dbgprint' is one precision at (2) but is some other precision at (1) [info -f g77 M GLOBALS]
graphi1/graphi1.F: In subroutine `move':
graphi1/graphi1.F:93: warning:
if(icx.ne.ix.or.icy.ne.iy)call move(ix,iy)
1
graphi1/graphi1.F:401: (continued):
subroutine move(x1,x2)
2
Argument #2 (named `x2') of `move' is one type at (2) but is some other type at (1) [info -f g77 M GLOBALS]
graphi1/graphi1.F: In subroutine `cont':
graphi1/graphi1.F:98: warning:
call cont(ix,iy)
1
graphi1/graphi1.F:407: (continued):
subroutine cont
2
Too few arguments for `cont' at (1) versus invocation at (2) [info -f g77 M GLOBALS]

And here's my makefile:

FF = g77
EXEC = a.out
SRC_DIR = .
USR_DIR = .
REL_DIR = ../
FLAGS = -I$(SRC_DIR)/commons \
-I$(SRC_DIR)/ffld/commons \
-I$(SRC_DIR)/graphi1/commons \
-I$(SRC_DIR)/frontsol \
-I$(SRC_DIR)/frontsol/vec

#USER_LIB = /usr/X11R6/lib/libX11.so.6.2 /usr/X11R6/lib/libXaw.so.6.1 /usr/X11R6/lib/libXt.so.6.0
USER_LIB = /usr/lib/libX11.so.6.2.0 /usr/lib/libXaw.so.7 /usr/lib/libXt.so.6




OBJ0 = $(SRC_DIR)/bjacobi/bjacobi.o \
$(SRC_DIR)/bjutil/bjutil.o \
$(SRC_DIR)/blas/blas.o \
$(SRC_DIR)/constr/constr.o \
$(SRC_DIR)/datstr/datstr.o \
$(SRC_DIR)/elem/elem.o \
$(SRC_DIR)/geometry/geometry.o \
$(SRC_DIR)/gmres/gmres.o \
$(SRC_DIR)/graph2d/graph2d.o \
$(SRC_DIR)/graphde/graphde.o \
$(SRC_DIR)/graphde/xglibf.c \
$(SRC_DIR)/graphde/fake.o \
$(SRC_DIR)/intermod/intermod.o \
$(SRC_DIR)/main/main.o \
$(SRC_DIR)/meshgen2/meshgen2.o \
$(SRC_DIR)/meshmod/meshmod.o \
$(SRC_DIR)/userbj/userbj.o \
$(SRC_DIR)/usergm/usergm.o \
$(SRC_DIR)/ffld/ffld.o \
$(SRC_DIR)/user1/user1.o \
$(SRC_DIR)/user1/test.o \
$(SRC_DIR)/user1/dumpin4.o \
$(SRC_DIR)/user1/dumpin5.o \
$(SRC_DIR)/user1/dumpout4.o \
$(SRC_DIR)/user1/dumpout5.o \
$(SRC_DIR)/user1/pause.o \
$(SRC_DIR)/user1/navsto.o \
$(SRC_DIR)/graphi1/graphi1.o \
$(SRC_DIR)/frontsol/frontsol.o \
$(SRC_DIR)/solver1/solver1.o \
$(SRC_DIR)/util/util.o






##### $(SRC_DIR)/errest/errest.o


OBJECT_allobj = $(OBJ0)

OBJECT_lapl = $(OBJ0)

#======================================================================
#compile any updated file:
allobj: $(OBJECT_allobj)

#link
lapl: $(OBJECT_lapl)
$(FF) $(FLAGS) -o $(EXEC) $(OBJECT_lapl) -L$(USER_LIB)


.f.o :
$(FF) $(FLAGS) -o $@ -c $<

.F.o :
$(FF) $(FLAGS) -o $@ -c $<

I think that I have some problem with the libraries, but as you can see I changed some libraries in the USER_LIB part to work with my operating system (fedora 9, kernel 2.6.27, GNOME 2.22.3). I will appreciate any help and thank you in advance.

Lukasz
 
The missmatch in common block size indicates that some reference are most likely double precision and some other are not. Does the source code have something like implicit double precision mentioned? If the libraries you call are single precision (while they were double before you changed them) then that would be your answer right there.


 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top