creadSoftenPara.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	creadsoftenpara (io)
subroutine	cwritesoftenpara (io)
subroutine	cskipsep (io)
subroutine	creadparar (vvalue, x)
subroutine	creadparar2 (vvalue, x, n)
subroutine	creadparacx (vvalue, c)
subroutine	creadparai (vvalue, i)
subroutine	creadparac (vvalue, cha)
subroutine	creadparal (vvalue, logi)
subroutine	cwriteparar (io, vname, x)
subroutine	cwriteparar2 (io, vname, x, n)
subroutine	cwriteparacx (io, vname, c)
subroutine	cwriteparai (io, vname, i)
subroutine	cwriteparac (io, vname, cha)
subroutine	cwriteparal (io, vname, logi)
logical function	cgetparmn (io, vname, vv)

Function/Subroutine Documentation

cgetparmn()

logical function cgetparmn	(	integer	io,
		character*(*)	vname,
		character*(*)	vv
	)

Definition at line 165 of file creadSoftenPara.f.

References false, parameter(), and true.

Referenced by creadsoftenpara(), and softenpik::creadsoftenpara().

!          get parameter variable name and given value(s)  from io
       implicit none
       integer io
       character*(*)  vname, vv  ! output
       logical ans

       integer linel
       parameter( linel = 100)
       character*(linel)  line
       integer loc, loc2
       vname = " "
       do while(.true.)
          read(io, '(a)', end=100 ) line
          if( line(1:1) .eq. " " .and. line(2:2) .ne. " ") then
             loc = index( line(3:linel), " ")  + 2
             vname = line(2:loc-1)
             loc2 = index( line, "/")
             if(loc2 .eq. 0 ) then
                write(0,* ) ' "/"  is missing in the input data file '
                write(0,*)  ' The line is: ', line
                stop 1234
             endif
             vv = line(loc+1:linel)  !  some data containes '/' such as '../../Media' so put all
                                     ! data.
             goto 50
          endif
       enddo
 50    continue
       ans = .true.
       return
 100   continue
       ans =.false.

Here is the call graph for this function:

Here is the caller graph for this function:

creadparac()

subroutine creadparac	(	character*(*)	vvalue,
		character*(*)	cha
	)

Definition at line 93 of file creadSoftenPara.f.

      implicit none
      character*(*) vvalue
      character*(*) cha
      read(vvalue, *)  cha

creadparacx()

subroutine creadparacx	(	character*(*)	vvalue,
		complex*8	c
	)

Definition at line 79 of file creadSoftenPara.f.

      implicit none
      character*(*) vvalue
      complex*8 c
      read( vvalue, *)   c

creadparai()

subroutine creadparai	(	character*(*)	vvalue,
		integer	i
	)

Definition at line 86 of file creadSoftenPara.f.

Referenced by creadsoftenpara(), and softenpik::creadsoftenpara().

      implicit none
      character*(*) vvalue
      integer i
      read(vvalue, *)   i

Here is the caller graph for this function:

creadparal()

subroutine creadparal	(	character*(*)	vvalue,
		logical	logi
	)

Definition at line 100 of file creadSoftenPara.f.

Referenced by creadsoftenpara(), and softenpik::creadsoftenpara().

      implicit none
      character*(*) vvalue
      logical logi
      read(vvalue, *)  logi

Here is the caller graph for this function:

creadparar()

subroutine creadparar	(	character*(*)	vvalue,
		real*8	x
	)

Definition at line 61 of file creadSoftenPara.f.

Referenced by creadsoftenpara(), and softenpik::creadsoftenpara().

        implicit none
        integer io
        character*(*) vvalue
        real*8 x
!        read(vvalue, *)   x, x
        read(vvalue, *)   x

Here is the caller graph for this function:

creadparar2()

subroutine creadparar2	(	character*(*)	vvalue,
		real*8, dimension(n)	x,
		integer	n
	)

Definition at line 69 of file creadSoftenPara.f.

        implicit none
        integer io
        character*(*) vvalue
        integer n
        real*8 x(n)
        read(vvalue, *)   x

creadsoftenpara()

subroutine creadsoftenpara

(

integer, intent(in)

io

)

Definition at line 2 of file creadSoftenPara.f.

References cgetparmn(), creadparai(), creadparal(), creadparar(), and cskipsep().

Referenced by softenpik::csoftenpik().

      implicit none
      integer,intent(in):: io   ! logical dev. #
      character*24 vname
      character*100 vvalue


       call cskipsep(io)
       do while( cgetparmn(io, vname, vvalue ) )
          select case(vname)
          case('mode')
             call creadparai(vvalue, mode)
          case('xth') 
             call creadparar(vvalue, xth)
          case('E0th') 
             call creadparar(vvalue, e0th)
          case('fwbw')
             call creadparai(vvalue, fwbw)
          case('pw')
             call creadparar(vvalue, pw)
          case('repeat')
             call creadparar(vvalue, repeat)
          case('special')
             call creadparal(vvalue, special)
          case('leadingPiK')
             call creadparal(vvalue, leadingpik)
          case('useXinCMS')
             call creadparal(vvalue, usexincms)
          end select
       enddo

Here is the call graph for this function:

Here is the caller graph for this function:

cskipsep()

subroutine cskipsep

(

integer

io

)

Definition at line 51 of file creadSoftenPara.f.

References true.

Referenced by creadsoftenpara(), and softenpik::creadsoftenpara().

       implicit none
       integer io
       character(10)  sep
       do while (.true.)
          read(io, '(a)') sep
          if(sep(2:10) == '---------') exit
       enddo

Here is the caller graph for this function:

cwriteparac()

subroutine cwriteparac	(	integer	io,
		character*(*)	vname,
		character*(*)	cha
	)

Definition at line 142 of file creadSoftenPara.f.

      implicit none
      integer io
      character*(*) vname
      character*(*) cha
      integer klena
      character*2 qmk/" '"/             ! ' 
      if(klena(cha) .gt. 0) then
         write(io,  *) ' ', vname, qmk, cha(1:klena(cha)),
     *        qmk,' /'
      else
         write(io, *) ' ', vname, qmk, ' ', qmk, ' /'
      endif

cwriteparacx()

subroutine cwriteparacx	(	integer	io,
		character*(*)	vname,
		complex*8	c
	)

Definition at line 125 of file creadSoftenPara.f.

      implicit none
      integer io
      character*(*) vname
      complex*8  c
      write(io,  *) ' ', vname,' ', c,' /'

cwriteparai()

subroutine cwriteparai	(	integer	io,
		character*(*)	vname,
		integer	i
	)

Definition at line 133 of file creadSoftenPara.f.

Referenced by cwritesoftenpara(), and softenpik::cwritesoftenpara().

      implicit none
      integer io
      character*(*) vname
      integer i
      
      write(io,  *) ' ', vname,' ', i,' /'

Here is the caller graph for this function:

cwriteparal()

subroutine cwriteparal	(	integer	io,
		character*(*)	vname,
		logical	logi
	)

Definition at line 156 of file creadSoftenPara.f.

Referenced by cwritesoftenpara(), and softenpik::cwritesoftenpara().

      implicit none
      integer io
      character*(*) vname
      logical  logi

      write(io,  *) ' ', vname,' ', logi,' /'

Here is the caller graph for this function:

cwriteparar()

subroutine cwriteparar	(	integer	io,
		character*(*)	vname,
		real*8	x
	)

Definition at line 107 of file creadSoftenPara.f.

Referenced by cwritesoftenpara(), and softenpik::cwritesoftenpara().

      implicit none
      integer io
      character*(*) vname
      real*8  x
      
      write(io, *) ' ', vname,' ', x,' /'

Here is the caller graph for this function:

cwriteparar2()

subroutine cwriteparar2	(	integer	io,
		character*(*)	vname,
		real*8, dimension(n)	x,
		integer	n
	)

Definition at line 115 of file creadSoftenPara.f.

      implicit none
      integer io
      integer n  ! arra size of x
      character*(*) vname
      real*8  x(n)
      
      write(io,*) ' ', vname,' ', x,' /'

cwritesoftenpara()

subroutine cwritesoftenpara

(

integer, intent(in)

io

)

Definition at line 34 of file creadSoftenPara.f.

References cwriteparai(), cwriteparal(), and cwriteparar().

Referenced by softenpik::csoftenpik().

       implicit none
       integer,intent(in):: io

       write(io,*)'----------------------'
       call cwriteparai(io,'mode', mode)
       call cwriteparar(io,'xth', xth)
       call cwriteparar(io,'E0th', e0th)
       call cwriteparai(io,'fwbw', fwbw)
       call cwriteparar(io,'pw', pw)
       call cwriteparar(io,'repeat',repeat)
       call cwriteparal(io,'special',special)
       call cwriteparal(io,'leadingPiK',leadingpik)
       call cwriteparal(io,'useXinCMS', usexincms)

Here is the call graph for this function:

Here is the caller graph for this function: