inputwarning.f File Reference

Go to the source code of this file.

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

Function/Subroutine Documentation

inputwarning()

subroutine inputwarning	(	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(*,*) '*WARNING reading ',text(1:index(text,'%')-1),
     &      '. Card image:'
      write(*,'(10x,1320a1)') 
     &       (inpc(i),i=ipoinpc(iline-1)+1,ipoinpc(iline))
      write(*,*)
!
      return