interface2.h File Reference

Go to the source code of this file.

Functions
integer lengid integer lengdir character *dir integer kgetenv2 character *numb character *execid character *msg logical takehist save do nsites	histdep (i)=0indivdep(i)=0enddo leng
integer lengid integer lengdir character *dir integer kgetenv2 character *numb character *execid character *msg logical takehist save do nsites tkarspec nsites	if (histdep(i) .gt. 0) then takehist
integer lengid integer lengdir character *dir integer kgetenv2 character *numb character *execid character *msg logical takehist save do nsites tkarspec nsites icon ! call	cerrorMsg (msg, 1) ! call cerrorMsg('could not be opened'
integer lengid integer lengdir character *dir integer kgetenv2 character *numb character *execid character *msg logical takehist save do nsites tkarspec nsites icon ! call ! endif	if (takehist) then msg

Variables
integer	leng
integer	lengn
integer lengid integer lengdir character *dir integer kgetenv2 character *numb character *execid character *msg logical takehist save do	i = 1

Function Documentation

cerrorMsg()

integer lengid integer lengdir character *dir integer kgetenv2 character *numb character *execid character *msg logical takehist save do nsites tkarspec nsites icon ! call ! endif icon call cerrorMsg	(	msg	,
		1
	)

histdep()

integer lengid integer lengdir character* dir integer kgetenv2 character* numb character* execid character* msg logical takehist save do nsites histdep ( i  )

pure virtual

Referenced by xbgrun().

Here is the caller graph for this function:

if() [1/2]

integer lengid integer lengdir character* dir integer kgetenv2 character* numb character* execid character* msg logical takehist save do nsites tkarspec nsites if

(

histdep(i) .gt.

0

)

if() [2/2]

integer lengid integer lengdir character* dir integer kgetenv2 character* numb character* execid character* msg logical takehist save do nsites tkarspec nsites icon ! call ! endif if

(

takehist

)

Variable Documentation

i

integer lengid integer lengdir character* dir integer kgetenv2 character* numb character* execid character* msg logical takehist save do i = 1

Definition at line 11 of file interface2.h.

leng

integer lengid integer lengdir character *dir integer kgetenv2 character *numb character *execid character *msg logical takehist save do nsites tkarspec leng

Initial value:

= kgetenv2("HISTDEP", input)
      read(input, *) histdep
      takehist = .false.
      do i= 1

Definition at line 1 of file interface2.h.

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__(), and __test.f__().

lengn

integer lengn

Definition at line 1 of file interface2.h.