pigid.f

Programs in the irregular grid design package described in this manual are used to carry out five ma

        function PigGetId()
        include '../tstamp.dat'
        character*(6) PigGetId
        character*(6) msg
        logical first 
        data first /.true./
        if(first)then
                first = .false.
                write (msg,'(i6)') TSTAMP
        endif
        PigGetId = msg
        end