At 19:45 11-11-97 +0100, you wrote:
>This program simple compile OK in xlf90 AIX
>but in FTN90 salford compiler WinNT is wrong!!!!
>
>Why....?
>
>Please HELPME!!!.
>
! After the modifications I sent before I got the following
! Output from Salford FTN95:
Licensed to: Mr J. van Oosterwijk
Organisation: TU DELFT
[FTN95/WIN32 Ver. 1.09 Copyright(c) Salford Software Ltd 1993-1997]
PROCESSING MODULE [<MFIELDS> FTN95/WIN32 v1.09]
NO ERRORS [<CREATFIELD1> FTN95/WIN32 v1.09]
NO ERRORS [<CREATFIELD2> FTN95/WIN32 v1.09]
NO ERRORS [<CREATFIELD3> FTN95/WIN32 v1.09]
NO ERRORS [<MFIELDS> FTN95/WIN32 v1.09]
>module mFIELDS
> implicit none
>
> TYPE FIELD1
> integer :: nx
> integer :: x1,x2
> integer :: ext
> real,pointer :: val(:)
> END TYPE FIELD1
>
> TYPE FIELD2
> integer :: nx,ny
> integer :: x1,x2,y1,y2
> integer :: ext
> real,pointer :: val(:,:)
> END TYPE FIELD2
>
> TYPE FIELD
> integer :: nx,ny,nz
> integer :: x1,x2,y1,y2,z1,z2
> integer :: ext
> real,pointer :: val(:,:,:)
> END TYPE FIELD
>
> INTERFACE CreatField
> MODULE PROCEDURE CreatField1,CreatField2,CreatField3
> END INTERFACE
>
>contains
>
>
>!==========================================================================
====
> function CreatField1(inx,iext)
>
>!==========================================================================
====
> implicit none
> TYPE(FIELD1),pointer :: CreatField1
> integer,intent(IN) :: inx
> integer,intent(IN) :: iext
>
Allocate ...
! etc ...
>!--------------------------------------------------------------------------
----
> end function CreatField1
>
>
>!==========================================================================
====
> function CreatField2(inx,iny,iext)
>
>!==========================================================================
====
> implicit none
> TYPE(FIELD2),pointer :: CreatField2
> integer,intent(IN) :: inx
> integer,intent(IN) :: iny
> integer,intent(IN) :: iext
>
>!--------------------------------------------------------------------------
----
> end function CreatField2
>
>
>!==========================================================================
====
> function CreatField3(inx,iny,inz,iext)
>
>!==========================================================================
====
> implicit none
> TYPE(FIELD),pointer :: CreatField3
> integer,intent(IN) :: inx
> integer,intent(IN) :: iny
> integer,intent(IN) :: inz
> integer,intent(IN) :: iext
>
>!--------------------------------------------------------------------------
----
> end function CreatField3
>
>
>end module mFIELDS
>
---
Best Greetings,
Jan van Oosterwijk
Computing Centre
Delft University of Technology
P.O. Box 354
2600 AJ Delft
Netherlands
Phone: +31 15 278 50 17
Fax: +31 15 278 37 87
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|