1      subroutine inferr(str,isev)
2      implicit double precision (a-h,o-z)
3c
4c     print info/error
5c
6      character*(*) str
7      common /rdwr/   iun1,iun2,iun3,iun4,iun5
8      common /plot / iplot,iplwin,icolps
9      logical zsev
10      common /wrtcom/ zsev
11cd     write(iun3,'(a)')'enter subroutine inferr'
12
13      if (iplot.eq.6) then
14          call molstr(str,len(str),iplwin)
15          if (isev.eq.1) then
16               write(iun3,*) ' '
17               write(iun3,*) str
18          endif
19      else
20          write(iun3,*) ' '
21          write(iun3,*) str
22          if (isev.eq.1.and.zsev) stop
23      endif
24
25cd     write(iun3,'(a)')'leave subroutine inferr'
26      return
27      end
28
29      subroutine zmterr(str,icard,ivar,isev)
30      implicit double precision (a-h,o-z)
31c
32c     print zmat parse error
33c
34      character*(*) str
35      character*137 dumstr
36      common /rdwr/  iun1,iun2,iun3,iun4,iun5
37      common /plot / iplot,iplwin,icolps
38
39      if (iplot.eq.6) then
40          if (isev.eq.1) then
41              dumstr = 'ZMAT NOT parsed: '//str
42              call errzme(dumstr,len(str)+17,icard,ivar)
43              write(iun3,*) str
44              write(iun3,*) 'Center ',icard
45          else
46              call errzme(str,len(str),icard,ivar)
47          endif
48      else
49          write(iun3,*) str
50c          if (isev.eq.1) stop
51      endif
52
53      return
54      end
55