1 SUBROUTINE ASREAD2(NSEG,IPF,ITYP) 2 INCLUDE 'Parametres.f' 3C 4 NSEG = 0 5 if (ipostscript.eq.1) then 6 if (ityp.eq.0) then 7 9999 continue 8 call getxycx11(iev,ixposcurs,iyposcurs 9 & ,ixposcurs_root,iyposcurs_root) 10C print*,'asread2',iev 11 if (iev.eq.-1) then 12 if (icurseur_courant.le.2.or.icurseur_courant.eq.9) then 13 if (ixposcurs.ge.ix0_zone_click.and. 14 & ixposcurs.le.ix1_zone_click.and. 15 & iyposcurs.ge.iy0_zone_click.and. 16 & iyposcurs.le.iy1_zone_click) then 17 if (icurseur_courant.ne.2) call change_curs(2) 18 elseif(ixposcurs.ge.ix0_zone_click2.and. 19 & ixposcurs.le.ix1_zone_click2.and. 20 & iyposcurs.ge.iy0_zone_click2.and. 21 & iyposcurs.le.iy1_zone_click2) then 22 if (icurseur_courant.ne.1) call change_curs(1) 23 else 24 if (icurseur_courant.ne.9) call change_curs(9) 25 endif 26 endif 27 ipf = -9999 28 return 29 elseif(iev.eq.-2) then 30 ipf = -8888 31 nseg = -1 32 return 33 elseif(iev.lt.0) then 34 ipf = -9999 35 return 36 endif 37C 38 8888 if (iev.ge.33.and.iev.le.57) then 39 IPF = iev-48 40 elseif(iev.ge.65.and.iev.le.90) then 41 IPF = iev-55 42 elseif(iev.ge.91.and.iev.le.96) then 43 IPF = iev-112 44 elseif(iev.ge.97.and.iev.le.126) then 45 IPF = iev-87 46c 47c click 48c 49 elseif(iev.ge.251.and.iev.le.255) then 50 iev = ichar(mouse(iev-250)(1:1)) 51 goto 8888 52c 53c doubleclick 54c 55 elseif(iev.ge.261.and.iev.le.265) then 56 nseg = 1 57 iev = ichar(mouse(iev-260)(1:1)) 58 goto 8888 59c fleches 60 elseif(iev.ge.1098.and.iev.le.1104.and.mod(iev,2).eq.0) then 61 ipf = iev/2 62 else 63cc print*,'asread2',iev 64 GOTO 9999 65 endif 66 else 67 call getxycx11b(iev,ixposcurs,iyposcurs 68 & ,ixposcurs_root,iyposcurs_root) 69 if (iev.eq.0) then 70 ipf = -9999 71 else 72 ipf = ichar(mouse(iev-250)(1:1)) 73 endif 74 endif 75 else 76 call findups(ipf) 77 endif 78 end 79