Polling Input

Polling Input

When writing input routines for user elements and user material models it is recommended to use a polling input model. The basic idea it to use a do while loop structure that reads your data based on keyword pairs, stores the values in ud(:), and then terminates its reading when it encounters a blank line or some other string that you designate as the termination condition for your input. Here is a template that you can follow:

      logical    pcomp,tinput,errck
      character  type*15,text(2)*15,termination*15
      real*8     ud(*),td(10)
        text(1) = 'start'
        termination = '     '  ! or for example 'my input end'
        do while (.not.pcomp(text(1),termination,4))
          errck = tinput(text,2,td,9)  ! Read two keywords and up to 9 values
          if (pcomp(text(1),'key1',4)) then
            if (pcomp(text(2),'key2',4)) then
              ud(1) = td(1)
              ud(2) = td(2)          
            elseif (pcomp(text(2),'key3',4)) then
              ud(3) = td(1)
            endif
          elseif (pcomp(text(1),'key4',4)) then
            if (pcomp(text(2),'key5',4)) then
              ud(4) = td(1)
              ud(5) = td(2)
              ud(6) = td(3)
            endif
          endif
        end do