LinuxQuestions.org
Latest LQ Deal: Linux Power User Bundle
Go Back   LinuxQuestions.org > Forums > Linux Forums > Linux - Newbie
User Name
Password
Linux - Newbie This Linux forum is for members that are new to Linux.
Just starting out and have a question? If it is not in the man pages or the how-to's this is the place!

Notices


Reply
  Search this Thread
Old 08-23-2009, 04:41 PM   #1
sunter
LQ Newbie
 
Registered: Aug 2009
Posts: 1

Rep: Reputation: 0
xlib problem


Hi,
lately I'm using or trying to use a program written in Fortan and I have problem with correctly compiling it. Here's my compilation listning:

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]
./graphde/xglibf.c: In function `xg_draw_line':
./graphde/xglibf.c:325: warning: passing arg 3 of `XDrawLine' makes pointer from integer without a cast
./graphde/xglibf.c: In function `xg_set_color':
./graphde/xglibf.c:375: warning: passing arg 2 of `XChangeGC' makes pointer from integer without a cast
./graphde/xglibf.c: In function `xg_set_clip':
./graphde/xglibf.c:622: warning: passing arg 2 of `XSetClipRectangles' makes pointer from integer without a cast
./graphde/xglibf.c: In function `xg_draw_rectangle':
./graphde/xglibf.c:650: warning: passing arg 3 of `XDrawRectangles' makes pointer from integer without a cast
./graphde/xglibf.c: In function `xg_draw_fill_rectangle':
./graphde/xglibf.c:678: warning: passing arg 3 of `XFillRectangles' makes pointer from integer without a cast
./graphde/xglibf.c: In function `xg_draw_poly':
./graphde/xglibf.c:708: warning: passing arg 3 of `XDrawLines' makes pointer from integer without a cast
./graphde/xglibf.c: In function `xg_draw_fill_poly':
./graphde/xglibf.c:735: warning: passing arg 3 of `XFillPolygon' makes pointer from integer without a cast
./graphde/xglibf.c: In function `xg_draw_text':
./graphde/xglibf.c:808: warning: passing arg 3 of `XDrawString' makes pointer from integer without a cast

And here's a the 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 \
-I/usr/include/X11

#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/libXaw7.so /usr/lib/libXt.so.6.0.0




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


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

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

I'm using Fedora 9 with kernel 2.6.27. I think that there's some problem with x11 library, because while running function used for displaying graphics the program crashes down and displays:

argv[0] = GRAPHICS
argv[1] = -geometry
argv[2] = 600x480
usage: GRAPHICS [-display host:dpy] [-geometry geom]

Any suggestions? What am I doing wrong?
 
  


Reply


Thread Tools Search this Thread
Search this Thread:

Advanced Search

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off



Similar Threads
Thread Thread Starter Forum Replies Last Post
Xlib problem nesta Programming 9 10-17-2006 11:12 AM
xlib problem alokagrawal Linux - Newbie 1 09-27-2006 02:35 AM
XLib problem (XSendEvent) muratungor Programming 0 07-26-2005 07:34 AM
Xlib problem trican Linux - Newbie 5 10-23-2004 08:32 AM
Xlib problem aeruzcar Linux - General 4 10-31-2003 05:57 AM

LinuxQuestions.org > Forums > Linux Forums > Linux - Newbie

All times are GMT -5. The time now is 06:36 AM.

Main Menu
Advertisement
My LQ
Write for LQ
LinuxQuestions.org is looking for people interested in writing Editorials, Articles, Reviews, and more. If you'd like to contribute content, let us know.
Main Menu
Syndicate
RSS1  Latest Threads
RSS1  LQ News
Twitter: @linuxquestions
Facebook: linuxquestions Google+: linuxquestions
Open Source Consulting | Domain Registration