Erroneous Code

What is wrong with the following internal procedure?

    SUBROUTINE Mistaken(A,B,C)
     IMPLICIT NONE
     REAL, INTENT(IN) :: A
     REAL, INTENT(OUT) :: C
     A = 2*C
    END SUBROUTINE Mistaken

Go back to Notes

• Solution