Group: comp.lang.fortran · Group Profile · Search for Try2 in comp.lang.fortran
Author: leaf
Date: Aug 29, 2006 22:59
... NONE INTEGER,DIMENSION(:),ALLOCATABLE::try1 INTEGER,DIMENSION(:),POINTER::try2 INTEGER::i,j,k INTERFACE print_try MODULE PROCEDURE ... END INTERFACE print_try ALLOCATE(try1(10)) ALLOCATE(try2(10)) DO i=1,10 try1(i)=1... DO CALL print_try(try1) DEALLOCATE(try1) DEALLOCATE(try2) CONTAINS SUBROUTINE print_try3(a) IMPLICIT NONE INTEGER,...
|