inputinfo.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	inputinfo (inpc, ipoinpc, iline, text)

Function/Subroutine Documentation

inputinfo()

subroutine inputinfo	(	character*1, dimension(*)	inpc,
		integer, dimension(0:*)	ipoinpc,
		integer	iline,
		character*(*)	text
	)

!
!     input error message subroutine
!
      implicit none
!
      character*1 inpc(*)
      character*(*) text
!
      integer ipoinpc(0:*),iline,i
!
      write(*,*) '*INFO reading ',text(1:index(text,'%')-1-1),
     &      '. Card image:'
      write(*,'(7x,1320a1)') 
     &     (inpc(i),i=ipoinpc(iline-1)+1,ipoinpc(iline))
      write(*,*)
!
      return