This subroutine facilitates compile optimization by working witt only two-dimensional arrays
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex(kind=dp) | :: | srv1(0:ncheb,lmsize) | ||||
complex(kind=dp) | :: | jlmkmn(0:ncheb,lmsize) | ||||
complex(kind=dp) | :: | hlmkmn(0:ncheb,lmsize) | ||||
complex(kind=dp) | :: | vhli(lmsize) | ||||
complex(kind=dp) | :: | vjli(lmsize) | ||||
integer | :: | ncheb | ||||
integer | :: | lmsize |