implicit real8 (a-h,o-z) write(,) write(,)'ccur',ccur,' curdir=',curdir,' nr=',nr write(,*)'cu_out, MA=',cu_out,' cfull, A=',cfull close(111)
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(DrivenCurrent), | intent(inout) | :: | driven_current | |||
| integer, | intent(in) | :: | ispectr |