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
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