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