> Date: Tue, 23 Oct 2001 12:10:04 +0800
> From: frank_ouyang <[log in to unmask]>
> Hello:
> The following is my programe:
> What wrong with it?
You need to state what error message you obtained.
The call needs an explicit interface.
Simplest is to put the whole subroutine just before the END
statement of the main program, and place a CONTAINS statement
before the SUBROUTINE statement.
> The program is in fixed format of fortran,and compiled on Ms PW 4.0!
>
> Thanks;
>
>
>
> type Stream
> real a
> end type Stream
> type (Stream)B
> B.a=1
> call A(B)
> end
>
> subroutine A(B)
> type (Stream)B
> write(*,*)B.a
> return
> end
|