Solution

There are a number of mistakes:

1. A is INTENT IN so should not be assigned to.
2. C is INTENT OUT which means that on entry to the subroutine it has no defined value -- its value must be set before it appears on the RHS of an assignment statement.
3. B is not declared -- the IMPLICIT NONE statement means that all objects must be declared.