Conference hydra::axp-developer

3215.0. "GAMS Development Corporation" by HYDRA::VANORDEN () Tue Feb 18 1997 15:49

    Company Name :  GAMS Development Corporation
    Contact Name :  Steve Dirkse, Ph.D. 
    Phone        :  (202)342-0180
    Fax          :  (202)342-0181
    Email        :  [email protected]
    Date/Time in :  18-FEB-1997 15:48:27
    Entered by   :  Donna Van Orden
    SPE center   :  MRO

    Category     :  UNIX
    OS Version   :  3.2C
    System H/W   :  


    Brief Description of Problem:
    -----------------------------

From:	SMTP%"[email protected]" 18-FEB-1997 15:38:19.44
To:	[email protected]
CC:	
Subj:	shared library problem

Return-Path: [email protected]
Received: by asimov.mro.dec.com (UCX V4.1-12, OpenVMS V6.2 VAX);
	Tue, 18 Feb 1997 15:38:17 -0500
Received: from mail2.digital.com by fluid.mro.dec.com; (5.65v3.2/1.1.8.2/19Nov96-0448PM)
	id AA24274; Tue, 18 Feb 1997 15:38:30 -0500
Received: from pobox1.pa.dec.com by mail2.digital.com (5.65 EXP 4/12/95 for V3.2/1.0/WV)
	id AA01857; Tue, 18 Feb 1997 12:26:11 -0800
Received: by pobox1.pa.dec.com; id AA04944; Tue, 18 Feb 97 12:25:25 -0800
Received: from eta.gams.com by mail2.digital.com (5.65 EXP 4/12/95 for V3.2/1.0/WV)
	id AA10711; Tue, 18 Feb 1997 12:15:56 -0800
Received: from ike.gams.com by eta.gams.com (4.1/SMI-4.1)
	id AA26749; Tue, 18 Feb 97 15:14:00 EST
Received: by ike.gams.com; (5.65v3.2/1.1.8.2/25Oct95-1214PM)
	id AA12984; Tue, 18 Feb 1997 15:15:49 -0500
Date: Tue, 18 Feb 1997 15:15:49 -0500
Message-Id: <[email protected]>
From: Steve Dirkse <[email protected]>
To: [email protected]
Subject: shared library problem


Tech Support,

We are participants in Digital's ASAP program.  You can find my name
or the company name in your records.  We have a DEC Alpha (Digital
Unix 3.2C) and version 3.8 of the Fortran compiler.

I can make and use a shared library fine using C, but not Fortran.  I
get the following error message:

ike% driver 
12868:driver: /sbin/loader: Fatal Error: cannot map libUfor.so


The problem happens with the following small example, broken into
three files: Makefile, driver.f, and gestub.f.  If this is supposed to
work, I would be happy to send you anything you feel useful (screen
dumps, etc.)  Thanks for any help you can provide.

Regards,

------------------------------------------------------------------
Steve Dirkse, Ph.D.                               We make a living
GAMS Development Corporation                       by what we get,
1217 Potomac St. NW                             but we make a life
Washington DC  20007                              by what we give.
Voice: (202)342-0180
Fax:   (202)342-0181                           - Winston Churchill
[email protected]                           
http://www.gams.com/
------------------------------------------------------------------


-- Makefile
# ###########################################
# Makefile for shared library example
# Platform: Digital Unix 3.2C, Alpha chip
# ###########################################

CC          = cc
CFLAGS      = 
F77         = f77
FFLAGS      = 
LD          = f77
LDFLAGS     = -v
SHLD        = ld
SHLDFLAGS   = -shared -v -V
SHLIBDIR    = .
SHLIB       = libextfunc.so
LDIRS       = -L$(SHLIBDIR)
LIBS        = -lextfunc

DRIVER      = driver
DOBJS       = driver.o
LOBJS       = gestub.o

all: $(SHLIBDIR)/$(SHLIB) driver

$(DRIVER) : $(DOBJS)
	$(LD) $(DOBJS) -o $(DRIVER) $(LDFLAGS) $(LDIRS) $(LIBS)

$(SHLIBDIR)/$(SHLIB) : $(LOBJS)
	$(SHLD) $(SHLDFLAGS) -o $@ -soname $@ $(LOBJS)

.c.o:
	$(CC) -c $(CFLAGS) $<

.f.o:
	$(F77) -c $(FFLAGS) $<


-- driver.f
c     test driver for GEinit, GEeval routines for external code
c     linkage to GAMS/CONOPT

      program driver

      integer maxmn
      parameter (maxmn = 1000)
      integer GEstat, GEinit, GEeval
      integer errorunit, m, n, nnz
      integer fIndex, doFnc, doDrv

      double precision x(maxmn), f, d(maxmn)


      errorunit = 6
      GEstat = GEinit (errorunit, m, n, nnz)

      if (GEstat .eq. 0) then
         write (errorunit, 1100)
         write (errorunit, 1110) m
         write (errorunit, 1120) n
         write (errorunit, 1130) nnz
      else
         write (errorunit, 1200) GEstat
         stop
      endif

 1100 format (1X, 'GEinit called successfully')
 1110 format (1X, '  number of equations:', I8)
 1120 format (1X, '  number of variables:', I8)
 1130 format (1X, '  number of nonzeroes:', I8)
 1200 format (1X, 'Error in call to GEinit: return code ', I6)

      end


-- gestub.f

	Integer Function GEinit(ErrLUN, m, n, nz)
C input
	Integer ErrLUN
C output
	Integer m, n, nz

C	Write(ErrLUN, *) ' No external functions have been linked.'

	m = 0
	n = 0
	nz = 0

	GEinit = 0
	Return
	End



	Integer Function GEeval(ErrLUN, fIndex, DoFnc, DoDrv, x, f, d)
C inputs
	Integer ErrLUN, fIndex, DoFnc, DoDrv
	Double Precision x(*)
C outputs
	Double Precision f, d(*)

	GEeval = 0
	Return
	End

From:	HYDRA::AXPDEVELOPER "[email protected]" 18-FEB-1997 16:58:41.35
To:	US3RMC::"[email protected]"
CC:	AXPDEVELOPER
Subj:	re:shared library problem


Steve,

It appears that the shared library may not be installed on the system on which
you are attempting the run.  Could you please do the following to verify?

cd /usr/shlib
ls -l libUfor.so


Make sure that the DFARTLnnn subset (where nnn is version number) is installed.
It is currently being shipped with the Operating System (as well as with the
Fortran kit, I believe).

Please let us know how you make out, referencing sequence no. 1997-3215.

Good Luck!

Donna Van Orden
Alpha Devleoper Support

From:	HYDRA::AXPDEVELOPER "[email protected]" 19-FEB-1997 02:52:20.02
To:	vanorden
CC:	AXPDEVELOPER
Subj:	FWD: Re: shared library problem (sequence no. 1997-3215)

From:	US6RMC::"[email protected]" "Steve Dirkse"   18-FEB-1997 17:29:29.46
To:	hydra::axpdeveloper
CC:	
Subj:	Re: shared library problem (sequence no. 1997-3215)


The shared library is installed, as is the Fortran runtime support.

ike% setld -i DFARTL361
./usr/lib/cmplrs/fortrtl
./usr/lib/cmplrs/fortrtl_361
./usr/lib/cmplrs/fortrtl_361/for_msg.cat
./usr/lib/cmplrs/fortrtl_361/libFutil.a
./usr/lib/cmplrs/fortrtl_361/libFutil.so
./usr/lib/cmplrs/fortrtl_361/libUfor.a
./usr/lib/cmplrs/fortrtl_361/libUfor.so
./usr/lib/cmplrs/fortrtl_361/libfor.a
./usr/lib/cmplrs/fortrtl_361/libfor.so
./usr/lib/for_msg.cat
./usr/lib/libFutil.a
./usr/lib/libUfor.a
./usr/lib/libfor.a
./usr/lib/nls/msg/en_US.ISO8859-1/for_msg.cat
./usr/shlib/libFutil.so
./usr/shlib/libUfor.so
./usr/shlib/libfor.so
ike% ls -l /usr/shlib/libUfor.so
lrwxrwxrwx   1 root     system        32 Oct  9  1995 /usr/shlib/libUfor.so@ -> 
../lib/cmplrs/fortrtl/libUfor.so
ike% ls -ld //usr/lib/cmplrs/fortrtl/libUfor.so
-r--r--r--   1 root     system    120992 Jun  9  1995 
//usr/lib/cmplrs/fortrtl/libUfor.so
ike% 

Is there a problem with this version of the runtime library?

-- 

 -Steve

% ====== Internet headers and postmarks (see DECWRL::GATEWAY.DOC) ======
% Received: from mail13.digital.com by us6rmc.mro.dec.com (5.65/rmc-17Jan97) id 
AA23645; Tue, 18 Feb 97 17:22:48 -0500
% Received: from eta.gams.com by mail13.digital.com (8.7.5/UNX 1.5/1.0/WV) id 
RAA15940; Tue, 18 Feb 1997 17:16:26 -0500 (EST)
% Received: from ike.gams.com by eta.gams.com (4.1/SMI-4.1) id AA26896; Tue, 18 
Feb 97 17:12:03 EST
% Received: by ike.gams.com; (5.65v3.2/1.1.8.2/25Oct95-1214PM) id AA14446; Tue, 
18 Feb 1997 17:13:52 -0500
% Date: Tue, 18 Feb 1997 17:13:52 -0500
% Message-Id: <[email protected]>
% From: Steve Dirkse <[email protected]>
% To: hydra::axpdeveloper
% In-Reply-To: <[email protected]> 
([email protected])
% Subject: Re: shared library problem (sequence no. 1997-3215)

From:	HYDRA::AXPDEVELOPER "[email protected]" 19-FEB-1997 11:08:14.08
To:	HYDRA::AXPDEVELOPER
CC:	AXPDEVELOPER
Subj:	RE: FWD: Re: shared library problem (sequence no. 1997-3215)


Steve,


My FIRST SUGGESTION is to upgrade.  Your kit is from April 1995, and 
many improvements (and fixes) have been made since then.  The current version
is Digital Fortran for Digital UNIX Alpha Systems V4.1, which will run on
Digital UNIX v3.x, v4.0, or later systems.


While I cannot find any reference to your particular problem, there is an
ECO kit for DEC Fortran for Digital UNIX Alpha Systems, Version 3.8, which
addresses several RTL problems.

Available from the web:

http://www.service.digital.com/html/patch_public.html

Or from the standard ftp directory:

ftp://ftp.service.digital.com/public


If it is impossible to upgrade, you might try 1) reinstalling the software and
then 2) applying the patches mentioned above.

a) deinstall fortran
b) reinstall fortran
c) check to see if there are any IVP errors


Let me know how you make out.

Donna Van Orden
Alpha Developer Support

    To cross reference this note:
    
    I see that Jeff D. recommended last month that they upgrade due to a
    bug in the RTL which they were encountering.
    
    See 2862.
    
    Donna VO

    No new developments on this, so I'll close.
    
    Donna