Anonymous

! XxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXxXx
    INTEGER FUNCTION INTLEN(I) 
        INTEGER, INTENT(IN) :: I 
        INTEGER :: TEMP, LCTL
        D = 0
        TEMP = I 
        FLOOP: DO LCTL=1,10,1 
            TEMP = TEMP / 10    
            D = D + 1
            IF (TEMP .EQ. 0) THEN
                EXIT
            END IF
        END DO FLOOP
        INTLEN = D
    END FUNCTION INTLEN