From:	CSBVAX::MRGATE!RELAY-INFO-VAX@CRVAX.SRI.COM@SMTP 19-SEP-1988 20:44
To:	ARISIA::EVERHART
Subj:	RE: TPU CALL_USER and FORTRAN (again)


Received: From KL.SRI.COM by CRVAX.SRI.COM with TCP; Fri, 16 SEP 88 16:08:45 PDT
Received: from NMFECC.ARPA by KL.SRI.COM with TCP; Fri, 16 Sep 88 15:45:23 PDT
Received: from atf.mfenet by ccc.mfenet with Tell via MfeNet ;
	Fri, 16 Sep 88 15:44:55 PDT
Date:	  Fri, 16 Sep 88 15:44:55 PDT
From:     TOLLIVER%ATF.MFENET@NMFECC.ARPA
Message-Id: <880916154455.20200215@NMFECC.ARPA>
Subject:   RE: TPU CALL_USER and FORTRAN (again)
To:       INFO-VAX@KL.SRI.COM
Comment: From TOLLIVER@ATF.MFENET on 16-SEP-1988 16:14:48.00 EDT

To those having trouble with TPU$CALLUSER routines in Fortran, here is a
simple Fortran subroutine that works.  It's been too long since I figured
this out with some help from a friendly VAX hacker to explain it all, but
it works.  Use as you like.

c-----------------------------------------------------------------------
        subroutine tpu$calluser (input_int, input_string, output_string)

        implicit none
        integer*2 input_int
        character*(*) input_string
        integer*4 output_string
        character*80 return_value

c--Do something to get the correct string result into return_value. Then,

        call lib$scopy_dxdx (return_value, output_string)

c--to get it "into" output_string.

        return
        end
c-----------------------------------------------------------------------

John Tolliver (TOLLIVER%ATF.MFENET@NMFECC.ARPA)

