ETS  \$Id: Doxyfile 2162 2020-02-26 14:16:09Z g2dpc $
 All Classes Files Functions Variables Pages
neoclassicjoiner.f90
Go to the documentation of this file.
1 !-------------------------------------------------------!
2  SUBROUTINE neoclassicjoiner(NEOCLASSICin1, &
3  neoclassicin2, &
4  neoclassicout)
5 !-------------------------------------------------------!
6 ! This routine !
7 !
8 !-------------------------------------------------------!
9 ! Source: --- !
10 ! Developers: !
11 ! Kontacts: !
12 ! !
13 ! Comments: !
14 ! !
15 ! !
16 !-------------------------------------------------------!
17 
18 
19  USE euitm_schemas
20  USE itm_constants
21  USE joiner
22 
23  IMPLICIT NONE
24 
25  TYPE (type_neoclassic), POINTER :: neoclassicin1(:)
26  TYPE (type_neoclassic), POINTER :: neoclassicin2(:)
27  TYPE (type_neoclassic), POINTER :: neoclassicout(:)
28 
29  CALL join_neoclassic(neoclassicin1, neoclassicin2, neoclassicout)
30 
31 
32  RETURN
33 
34 
35  END SUBROUTINE neoclassicjoiner
36 
joiner::join_neoclassic
subroutine join_neoclassic(NEOCLASSICin1, NEOCLASSICin2, NEOCLASSICout)
This routine joins CPOs.
Definition: joiner.f90:26
neoclassicjoiner
subroutine neoclassicjoiner(NEOCLASSICin1, NEOCLASSICin2, NEOCLASSICout)
Definition: neoclassicjoiner.f90:2
joiner
Module joins CPOs.
Definition: joiner.f90:9