text:  SUBROUTINE inpd05 (task, iwrit, elsnam, nelms)
  
   !   READ control DATA for element number 05 (TL SOLID-SHELL PRISM)
  
   IMPLICIT NONE
   ! dummy arguments
   CHARACTER(len=*),INTENT(IN):: elsnam    ! element set name
   CHARACTER(len=*),INTENT(IN):: task      ! requested task
   INTEGER (kind=4) :: nelms,   & ! number of element sets
                       iwrit      ! flag to echo data input
   END SUBROUTINE inpd05
  