Searched defs:CALL_SHAPE (Results 1 – 1 of 1) sorted by relevance
243 subroutine CALL_SHAPE(x) subroutine245 integer :: x(..)246 integer :: j local247 integer, pointer :: ptr