keystart.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	keystart (ifreeinp, ipoinp, inp, name, iline, ikey)

Function/Subroutine Documentation

keystart()

subroutine keystart	(	integer	ifreeinp,
		integer, dimension(2,*)	ipoinp,
		integer, dimension(3,*)	inp,
		character*20	name,
		integer	iline,
		integer	ikey
	)

!
      implicit none
!
!     stores the order in which the input is to be read in fields
!     ipoinp and inp; 
!
!     order:
!     1)  *RESTART,READ
!     2)  *NODE
!     3)  *USER ELEMENT
!     4)  *ELEMENT
!     5)  *NSET
!     6)  *ELSET
!     7)  *SURFACE
!     8)  *TRANSFORM
!     9)  *MATERIAL
!     10) *ORIENTATION
!     11) *TIE
!     12) *SURFACE INTERACTION
!     13) *INITIAL CONDITIONS
!     14) *AMPLITUDE
!     15) *CONTACT PAIR
!     16) *COUPLING
!     17) everything else
!
      integer nentries
      parameter(nentries=17)
!
      character*20 name,nameref(nentries)
!
      integer ifreeinp,ipoinp(2,*),inp(3,*),namelen(nentries),i,ikey,
     &  iline
!
!     order in which the cards have to be read
!
      data nameref /'RESTART,READ','NODE','USERELEMENT','ELEMENT',
     &              'NSET',
     &              'ELSET','SURFACE','TRANSFORM','MATERIAL',
     &              'ORIENTATION','TIE','SURFACEINTERACTION',
     &              'INITIALCONDITIONS','AMPLITUDE',
     &              'CONTACTPAIR','COUPLING','REST'/
!
!     length of the names in field nameref
!
      data namelen /12,4,11,7,4,5,7,9,8,11,3,18,17,9,11,8,4/
!
      do i=1,nentries
         if(name(1:namelen(i)).eq.nameref(i)(1:namelen(i))) then
            if(ikey.eq.i) return
            if(ikey.gt.0) inp(2,ipoinp(2,ikey))=iline-1
            ikey=i
            if(ipoinp(1,i).eq.0) then
               ipoinp(1,i)=ifreeinp
            else
               inp(3,ipoinp(2,i))=ifreeinp
            endif
            ipoinp(2,i)=ifreeinp
            exit
         endif
      enddo
      inp(1,ifreeinp)=iline
      ifreeinp=ifreeinp+1
!
      return