ABSTRACT
INTERFACE ASSIGNMENT ( = ) SUBROUTINE Intchar(n, string) INTEGER, INTENT (OUT) :: n CHARACTER, INTENT (IN) :: string END SUBROUTINE Intchar
END INTERFACE
13. A2
FUNCTION Snakehead(vector) RESULT (head) TYPE (Link), POINTER :: Snakehead, beta, gamma TYPE (Link), TARGET :: alpha REAL :: vector(:) alpha%x = vector(1) beta => alpha
DO i = 2, SIZE(vector) ALLOCATE (gamma) beta%nextlink => gamma
gamma%x = vector(i) NULLIFY (gamma%nextlink) beta => gamma
END DO