cgetLoginN.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cgetloginn (userid)
subroutine	copycstring (Cstring, target)
subroutine	getlog (user)
integer function	kgetenv2 (envname, envresult)
subroutine	cqversion (cosv)

Function/Subroutine Documentation

cgetloginn()

subroutine cgetloginn

(

character*(*)

userid

)

Definition at line 29 of file cgetLoginN.f.

References copycstring().

Referenced by cwhatjob(), and init().

        character*(*) userid
    integer getlogin,  intlogin
        pointer(pu, intlogin)
    pu=getlogin()
         call copycstring(intlogin, userid)

Here is the call graph for this function:

Here is the caller graph for this function:

copycstring()

subroutine copycstring	(	character, dimension(*)	Cstring,
		character, dimension(*)	target
	)

Definition at line 36 of file cgetLoginN.f.

References getlog().

Referenced by cgetloginn().

         implicit none
         integer i
         character cstring(*), target*(*)
         
         target=' '
         do i=1, len(target)
            if(cstring(i) == char(0) ) exit
            target(i:i)=cstring(i)
         enddo

Here is the call graph for this function:

Here is the caller graph for this function:

cqversion()

subroutine cqversion

(

character*8

cosv

)

Definition at line 96 of file cgetLoginN.f.

References copenf().

      implicit none
#include "Zmanagerp.h"
      character*8::cosv ! output  cosmos version such 7.58; left justified
      character*64::cosmostop
      character*128:: filen
      integer kgetenv2, icon

      if( kgetenv2("COSMOSTOP", cosmostop) == 0 ) then
         write(0,*) " Environmental variable "
         write(0,*) "COSMOSTOP cannot be obtained in cqversion"
         stop
      endif
      filen = trim(cosmostop)//"/Version/version" 
      call copenf(tempdev, filen, icon)
      read(tempdev, '(a)') cosv
      close(tempdev)

Here is the call graph for this function:

getlog()

subroutine getlog

(

character, dimension(*)

user

)

Definition at line 69 of file cgetLoginN.f.

Referenced by copycstring().

        character user*(*)
        call getenv('USER',user)

Here is the caller graph for this function:

kgetenv2()

integer function kgetenv2	(	character*(*)	envname,
		character*(*)	envresult
	)

Definition at line 77 of file cgetLoginN.f.

Referenced by __add2hist.f__(), __add2hyb.f__(), __add2nrfai.f__(), __bin2asciicomp.f__(), __mknrfai.f__(), __mknrfaifromdat.f__(), __reducebinsize.f__(), __reduceeachsize.bin.f__(), __reduceeachsize.binbyl.f__(), __reduceeachsize.f__(), __reducesize.f__(), __smashskel.f__(), __smashskelsmallfileno.f__(), __smashskeltrial.f__(), cmanager(), and xbgrun().

      character*(*)  envname   ! input.  environment variable name
      character*(*)  envresult ! output. value of hte env. variable.
 
      integer leng, kgetenv, klena
      character*1  null
      character*128 path
      null = char(0)
      leng = klena(envname)
      if( leng .gt. 0 ) then
         leng = kgetenv( envname(1:leng)//null, envresult)
      else
         leng = 0
         envresult = ' '
      endif
      envresult=envresult(1:leng)//" "
      kgetenv2 = leng

Here is the caller graph for this function: