johnson@ecovsh.eco.ncsu.edu (Amy Johnson) (06/30/90)
Has anyone out there been successful at installing xgks on an IBM PS/2 running AIX version 1.2? We're using VS FORTRAN. The C library seems to be ok, it's the FORTRAN examples calling the FORTRAN interface library (libfxgks.a) that is having troubles. This particular example is the gksdemo example in xgks/demo/gksdemo. It appears that the parameter values are getting messed up between gksdemo.f and control.c in libfxgks.a and in other places. I've been working on this for 3 weeks and am starting to show signs of insanity. If anyone has any ideas, please let me know. I have enclosed the debugging output of gksdemo. Thanks, Amy <johnson@ecovsh.eco.ncsu.edu> <johnson%eceugs@ncsuvx.ncsu.edu> Engineering Computer Operations North Carolina State University Open GKS errfile = 0 Error filename = length = 0 wstype 0 = MI wstype 1 = MO wstype 2 = WISS wstype 3 = Open Workstation 1 conid 1 type 3 wstype = <> connection id = Activate Workstation 1 Set Deferal State 1 (536870556) (1) FORTRAN Errorhand: errnr = 2000, fctid = 10 Error log: errnr = 2000, fctid = 10 error file name = current file name = gsetdeferst() 2000 Enumeration type out of range Exit error log Exit errorhand Set Aspect Source Flags Set Window 1 ( 0.00, 0.00) ( 1.00, 1.00) Set Viewport 1 ( 0.00, 0.00) ( 1.00, 1.00) Inquire Display Space Size 4 Set Workstation Window 1 ( 0.00, 0.00) ( 1.00, 1.00) Set Workstation Viewport 1 ( 128.00, 0.00) (1152.00, 1024.00) Select Normalization Transformation 1 Set Color Representation 1 1 Set Color Representation 1 2 Set Color Representation 1 3 Set Color Representation 1 4 Set Color Representation 1 5 Set Color Representation 1 6 Set Color Representation 1 7 Set Color Representation 1 8 Set Color Representation 1 9 Set Color Representation 1 10 Set Color Representation 1 11 Set Color Representation 1 12 Set Color Representation 1 13 Set Color Representation 1 14 Set Color Representation 1 15 Clear Workstation 1 (536870372) FORTRAN Errorhand: errnr = 2000, fctid = 7 Error log: errnr = 2000, fctid = 7 error file name = current file name = gclearws() 2000 Enumeration type out of range Exit error log Exit errorhand Create Segment 1259 Set Linetype 536869788 Set Linewidth Scale Factor 1.0 Set Polyline Color Index 8388652 Polyline 5 Polyline 5 Set Character Height 0.07 Set Text Font and Precision 8397428 8397368 FORTRAN Errorhand: errnr = 2000, fctid = 32 Error log: errnr = 2000, fctid = 32 error file name = current file name = gsettextfontprec() 2000 Enumeration type out of range Exit error log Exit errorhand Set Text Alignment 0 8397308 FORTRAN Errorhand: errnr = 2000, fctid = 39 Error log: errnr = 2000, fctid = 39 error file name = current file name = gsettextalign() 2000 Enumeration type out of range Exit error log Exit errorhand Set Text Color Index 8388652 Set Character Expansion Factor 1.0 Set Character Height 0.06 Set Character Spacing 0.20 Text (Subset Version) <XGKS DEMO> length 9 Polyline 5 Set Text Font and Precision 4195088 536870500 FORTRAN Errorhand: errnr = 2000, fctid = 32 Error log: errnr = 2000, fctid = 32 error file name = current file name = gsettextfontprec() 2000 Enumeration type out of range Exit error log Exit errorhand Set Text Alignment 8388916 8462032 FORTRAN Errorhand: errnr = 2000, fctid = 39 Error log: errnr = 2000, fctid = 39 error file name = current file name = gsettextalign() 2000 Enumeration type out of range Exit error log Exit errorhand Close Segment Set Fill Area Interior Style 1 Set Fill Area Color Index 20 Set Text Font and Precision 4442686 4194611 FORTRAN Errorhand: errnr = 2000, fctid = 32 Error log: errnr = 2000, fctid = 32 error file name = current file name = gsettextfontprec() 2000 Enumeration type out of range Exit error log Exit errorhand Set Text Color Index 1 Set Character Height 0.06 Set Character Expansion Factor 0.9 Set Character Spacing 0.10 Create Segment 1 Fill Area 4 Set Text Alignment 4194611 4441753 FORTRAN Errorhand: errnr = 2000, fctid = 39 Error log: errnr = 2000, fctid = 39 error file name = current file name = gsettextalign() 2000 Enumeration type out of range Exit error log Exit errorhand Text (Subset Version) <1> length 1 Set Text Alignment 536870496 1 FORTRAN Errorhand: errnr = 2000, fctid = 39 Error log: errnr = 2000, fctid = 39 error file name = current file name = gsettextalign() 2000 Enumeration type out of range Exit error log Exit errorhand Close Segment Set Detectability 1 1 Polyline 7 Fill Area 4 Text (Subset Version) <XGKS> length 4 Create Segment 2 Fill Area 4 Set Text Alignment 4194611 4441753 FORTRAN Errorhand: errnr = 2000, fctid = 39 Error log: errnr = 2000, fctid = 39 error file name = current file name = gsettextalign() 2000 Enumeration type out of range Exit error log Exit errorhand Text (Subset Version) <2> length 1 Set Text Alignment 536870496 1 FORTRAN Errorhand: errnr = 2000, fctid = 39 Error log: errnr = 2000, fctid = 39 error file name = current file name = gsettextalign() 2000 Enumeration type out of range Exit error log Exit errorhand Close Segment Set Detectability 2 1 Polyline 7 Fill Area 4 Text (Subset Version) <PRIMITIVES> length 10 Create Segment 3 Fill Area 4 Set Text Alignment 4194611 4441753 FORTRAN Errorhand: errnr = 2000, fctid = 39 Error log: errnr = 2000, fctid = 39 error file name = current file name = gsettextalign() 2000 Enumeration type out of range Exit error log Exit errorhand Text (Subset Version) <3> length 1 Set Text Alignment 536870496 1 FORTRAN Errorhand: errnr = 2000, fctid = 39 Error log: errnr = 2000, fctid = 39 error file name = current file name = gsettextalign() 2000 Enumeration type out of range Exit error log Exit errorhand Close Segment Set Detectability 3 1 Polyline 7 Fill Area 4 Text (Subset Version) <COLOR> length 5 Create Segment 4 Fill Area 4 Set Text Alignment 4194611 4441753 FORTRAN Errorhand: errnr = 2000, fctid = 39 Error log: errnr = 2000, fctid = 39 error file name = current file name = gsettextalign() 2000 Enumeration type out of range Exit error log Exit errorhand Text (Subset Version) <4> length 1 Set Text Alignment 536870496 1 FORTRAN Errorhand: errnr = 2000, fctid = 39 Error log: errnr = 2000, fctid = 39 error file name = current file name = gsettextalign() 2000 Enumeration type out of range Exit error log Exit errorhand Close Segment Set Detectability 4 1 Polyline 7 Fill Area 4 Text (Subset Version) <INTERACTION> length 11 Create Segment 5 Fill Area 4 Set Text Alignment 4194611 4441753 FORTRAN Errorhand: errnr = 2000, fctid = 39 Error log: errnr = 2000, fctid = 39 error file name = current file name = gsettextalign() 2000 Enumeration type out of range Exit error log Exit errorhand Text (Subset Version) <5> length 1 Set Text Alignment 536870496 1 FORTRAN Errorhand: errnr = 2000, fctid = 39 Error log: errnr = 2000, fctid = 39 error file name = current file name = gsettextalign() 2000 Enumeration type out of range Exit error log Exit errorhand Close Segment Set Detectability 5 1 Polyline 7 Fill Area 4 Text (Subset Version) <END> length 3 Set Text Font and Precision 8500404 7 FORTRAN Errorhand: errnr = 2000, fctid = 32 Error log: errnr = 2000, fctid = 32 error file name = current file name = gsettextfontprec() 2000 Enumeration type out of range Exit error log Exit errorhand Set Character Spacing 0.10 Pack Data Record header needs 28 bytes 0 integers need 0 bytes 0 reals need 0 bytes 0 strings need 0 bytes total space needed id 28 bytes pdr is at 0x1ffffc44 data starts at 0x1ffffc60 ints: reals: strings: ******** DUMP PDR ******** magicnum 7 nint 0 intptr 0x0 nfloat 0 floatptr 0x0 nstring 0 strptr 0x0