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