C CHOI SOURCE PV 20/08/07 21:15:05 10682 C positionnement d'un ensemble de flags C SUBROUTINE CHOI IMPLICIT INTEGER(I-N) -INC PPARAM -INC CCOPTIO -INC CCNOYAU external long dimension iob(22) logical vale(22) character*(LONOM) choix(22) character*500 choi2 oui='(X)' llong=22 choi2='Ok' * d'abord recuperer les noms a proposer do 10 i=1,22 if (iretou.eq.0) goto 11 10 continue 11 continue if (ierr.ne.0) return nbr=i-1 ncou=16 CALL TRCLIK(1) 30 continue do 20 i=1,nbr if (vale(i)) then choi2((i*(lonom+3)+1):i*(lonom+3)+11)=oui//choix(i) else endif 20 continue CALL MENU(choi2,nbr+1,lonom+3) CALL TRaff(ICLE) ** write(6,*) ' icle dans choi apres traff',icle irep=icle+1 if (irep.eq.1) goto 50 vale(irep-1)=.not.vale(irep-1) goto 30 50 continue do 60 i=nbr,1,-1 60 continue end
© Cast3M 2003 - Tous droits réservés.
Mentions légales