Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
findstrings | Module: | File: TRACERS_DRV.f |
Author :
Version:
Declaration:
subroutine findstrings(stringstofind, listofstrings, indices, n)
- sname_strlen : used from mdiag_com
- n :
integer
- stringstofind :
character(len=sname_strlen), dimension(n)
- listofstrings :
character(len=sname_strlen), dimension(n)
- indices :
integer, dimension(n)
- k :
integer
- kk :
integer
- found :
logical