C COMMEN SOURCE CHAT 05/01/12 22:15:33 5004 C CARTE COMMENTAIRE POUR CEUX QUI CA INTERESSE C SUBROUTINE COMMEN IMPLICIT INTEGER(I-N) -INC PPARAM -INC CCOPTIO -INC CCREDLE sredle=iredle CALL RAZPIL NRAN=ICOUR RETURN END