C FISSUR SOURCE CHAT 05/01/13 00:01:51 5004 SUBROUTINE FISSUR IMPLICIT INTEGER(I-N) RETURN END