bin2asciiComp.f File Reference

Go to the source code of this file.

Functions/Subroutines
program	__bin2asciicomp.f__
subroutine	get1hyb

Function/Subroutine Documentation

__bin2asciicomp.f__()

program __bin2asciicomp.f__

(

)

Definition at line 7 of file bin2asciiComp.f.

References copenfw2(), get1hyb(), idx(), kgetenv2(), kwhistd(), kwhistpr(), kwhistr(), kwhists(), leng, parameter(), and true.

      integer ndepth

Here is the call graph for this function:

get1hyb()

subroutine get1hyb

(

)

Definition at line 127 of file bin2asciiComp.f.

References parameter().

Referenced by __bin2asciicomp.f__(), modbin2ascii::mergehyb1(), modzbin2ascii::mergehyb1(), and mergehyb1().

      implicit none
      character*120 input0
      integer i, klena

      integer ndepth
      parameter(ndepth= 30)
      integer fn1
      real*8  asdep(ndepth),  munit(ndepth)
      real*8  esize0(ndepth),
     *     age0(ndepth),  cogdep0(ndepth),
     *     seloss0(ndepth),
     *     ng0(ndepth), ne0(ndepth), nmu0(ndepth),
     *     cog0
      integer evno0

      common /zbin2ascii/
     *    asdep, esize0, age0,
     *    cogdep0,  seloss0, munit,
     *    ng0, ne0, nmu0, cog0,
     *    fn1, evno0
      input0 = "x" 
      do while (input0 .ne. " ")
         read( fn1 ,'(a)') input0
         if(input0 .ne. " ")  then
            read(input0(1:klena(input0)), *)
     *        evno0, i, asdep(i), esize0(i), age0(i),
     *        cogdep0(i), seloss0(i),
     *         munit(i), ng0(i), ne0(i), nmu0(i), cog0
         endif
      enddo

Here is the call graph for this function:

Here is the caller graph for this function: