-
Notifications
You must be signed in to change notification settings - Fork 303
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
159 changed files
with
1,335 additions
and
154 deletions.
There are no files selected for viewing
Binary file removed
BIN
-496 Bytes
examples/17_parameterized_pattern_formation/data/auto/even/stable_9.npy
Binary file not shown.
Binary file removed
BIN
-656 Bytes
examples/17_parameterized_pattern_formation/data/auto/even/unstable_9.npy
Binary file not shown.
Binary file added
BIN
+592 Bytes
examples/17_parameterized_pattern_formation/data/auto/even2/stable_0.npy
Binary file not shown.
Binary file added
BIN
+656 Bytes
examples/17_parameterized_pattern_formation/data/auto/even2/stable_1.npy
Binary file not shown.
Binary file added
BIN
+656 Bytes
examples/17_parameterized_pattern_formation/data/auto/even2/stable_2.npy
Binary file not shown.
Binary file added
BIN
+656 Bytes
examples/17_parameterized_pattern_formation/data/auto/even2/stable_3.npy
Binary file not shown.
Binary file added
BIN
+704 Bytes
examples/17_parameterized_pattern_formation/data/auto/even2/stable_4.npy
Binary file not shown.
Binary file added
BIN
+704 Bytes
examples/17_parameterized_pattern_formation/data/auto/even2/stable_5.npy
Binary file not shown.
Binary file added
BIN
+704 Bytes
examples/17_parameterized_pattern_formation/data/auto/even2/stable_6.npy
Binary file not shown.
Binary file added
BIN
+736 Bytes
examples/17_parameterized_pattern_formation/data/auto/even2/stable_7.npy
Binary file not shown.
Binary file added
BIN
+496 Bytes
examples/17_parameterized_pattern_formation/data/auto/even2/stable_8.npy
Binary file not shown.
Binary file added
BIN
+1.98 KB
examples/17_parameterized_pattern_formation/data/auto/even2/unstable_0.npy
Binary file not shown.
Binary file added
BIN
+656 Bytes
examples/17_parameterized_pattern_formation/data/auto/even2/unstable_1.npy
Binary file not shown.
Binary file added
BIN
+624 Bytes
examples/17_parameterized_pattern_formation/data/auto/even2/unstable_2.npy
Binary file not shown.
Binary file added
BIN
+704 Bytes
examples/17_parameterized_pattern_formation/data/auto/even2/unstable_3.npy
Binary file not shown.
Binary file added
BIN
+640 Bytes
examples/17_parameterized_pattern_formation/data/auto/even2/unstable_4.npy
Binary file not shown.
Binary file added
BIN
+640 Bytes
examples/17_parameterized_pattern_formation/data/auto/even2/unstable_5.npy
Binary file not shown.
Binary file added
BIN
+688 Bytes
examples/17_parameterized_pattern_formation/data/auto/even2/unstable_6.npy
Binary file not shown.
Binary file added
BIN
+688 Bytes
examples/17_parameterized_pattern_formation/data/auto/even2/unstable_7.npy
Binary file not shown.
Binary file added
BIN
+736 Bytes
examples/17_parameterized_pattern_formation/data/auto/even2/unstable_8.npy
Binary file not shown.
Binary file added
BIN
+240 Bytes
examples/17_parameterized_pattern_formation/data/auto/even3/stable_0.npy
Binary file not shown.
Binary file added
BIN
+768 Bytes
examples/17_parameterized_pattern_formation/data/auto/even3/stable_1.npy
Binary file not shown.
Binary file added
BIN
+800 Bytes
examples/17_parameterized_pattern_formation/data/auto/even3/stable_2.npy
Binary file not shown.
Binary file added
BIN
+800 Bytes
examples/17_parameterized_pattern_formation/data/auto/even3/stable_3.npy
Binary file not shown.
Binary file added
BIN
+800 Bytes
examples/17_parameterized_pattern_formation/data/auto/even3/stable_4.npy
Binary file not shown.
Binary file added
BIN
+832 Bytes
examples/17_parameterized_pattern_formation/data/auto/even3/stable_5.npy
Binary file not shown.
Binary file added
BIN
+832 Bytes
examples/17_parameterized_pattern_formation/data/auto/even3/stable_6.npy
Binary file not shown.
Binary file added
BIN
+896 Bytes
examples/17_parameterized_pattern_formation/data/auto/even3/stable_7.npy
Binary file not shown.
Binary file added
BIN
+656 Bytes
examples/17_parameterized_pattern_formation/data/auto/even3/stable_8.npy
Binary file not shown.
Binary file added
BIN
+1.03 KB
examples/17_parameterized_pattern_formation/data/auto/even3/unstable_0.npy
Binary file not shown.
Binary file added
BIN
+1.09 KB
examples/17_parameterized_pattern_formation/data/auto/even3/unstable_1.npy
Binary file not shown.
Binary file added
BIN
+816 Bytes
examples/17_parameterized_pattern_formation/data/auto/even3/unstable_2.npy
Binary file not shown.
Binary file added
BIN
+768 Bytes
examples/17_parameterized_pattern_formation/data/auto/even3/unstable_3.npy
Binary file not shown.
Binary file added
BIN
+800 Bytes
examples/17_parameterized_pattern_formation/data/auto/even3/unstable_4.npy
Binary file not shown.
Binary file added
BIN
+864 Bytes
examples/17_parameterized_pattern_formation/data/auto/even3/unstable_5.npy
Binary file not shown.
Binary file added
BIN
+848 Bytes
examples/17_parameterized_pattern_formation/data/auto/even3/unstable_6.npy
Binary file not shown.
Binary file added
BIN
+880 Bytes
examples/17_parameterized_pattern_formation/data/auto/even3/unstable_7.npy
Binary file not shown.
Binary file added
BIN
+864 Bytes
examples/17_parameterized_pattern_formation/data/auto/even3/unstable_8.npy
Binary file not shown.
Binary file added
BIN
+608 Bytes
examples/17_parameterized_pattern_formation/data/auto/even4/stable_0.npy
Binary file not shown.
Binary file added
BIN
+688 Bytes
examples/17_parameterized_pattern_formation/data/auto/even4/stable_1.npy
Binary file not shown.
Binary file added
BIN
+656 Bytes
examples/17_parameterized_pattern_formation/data/auto/even4/stable_2.npy
Binary file not shown.
Binary file added
BIN
+688 Bytes
examples/17_parameterized_pattern_formation/data/auto/even4/stable_3.npy
Binary file not shown.
Binary file added
BIN
+688 Bytes
examples/17_parameterized_pattern_formation/data/auto/even4/stable_4.npy
Binary file not shown.
Binary file added
BIN
+688 Bytes
examples/17_parameterized_pattern_formation/data/auto/even4/stable_5.npy
Binary file not shown.
Binary file added
BIN
+720 Bytes
examples/17_parameterized_pattern_formation/data/auto/even4/stable_6.npy
Binary file not shown.
Binary file added
BIN
+752 Bytes
examples/17_parameterized_pattern_formation/data/auto/even4/stable_7.npy
Binary file not shown.
Binary file added
BIN
+416 Bytes
examples/17_parameterized_pattern_formation/data/auto/even4/stable_8.npy
Binary file not shown.
Binary file added
BIN
+1.98 KB
examples/17_parameterized_pattern_formation/data/auto/even4/unstable_0.npy
Binary file not shown.
Binary file added
BIN
+656 Bytes
examples/17_parameterized_pattern_formation/data/auto/even4/unstable_1.npy
Binary file not shown.
Binary file added
BIN
+656 Bytes
examples/17_parameterized_pattern_formation/data/auto/even4/unstable_2.npy
Binary file not shown.
Binary file added
BIN
+688 Bytes
examples/17_parameterized_pattern_formation/data/auto/even4/unstable_3.npy
Binary file not shown.
Binary file added
BIN
+672 Bytes
examples/17_parameterized_pattern_formation/data/auto/even4/unstable_4.npy
Binary file not shown.
Binary file added
BIN
+688 Bytes
examples/17_parameterized_pattern_formation/data/auto/even4/unstable_5.npy
Binary file not shown.
Binary file added
BIN
+672 Bytes
examples/17_parameterized_pattern_formation/data/auto/even4/unstable_6.npy
Binary file not shown.
Binary file added
BIN
+720 Bytes
examples/17_parameterized_pattern_formation/data/auto/even4/unstable_7.npy
Binary file not shown.
Binary file added
BIN
+752 Bytes
examples/17_parameterized_pattern_formation/data/auto/even4/unstable_8.npy
Binary file not shown.
Binary file added
BIN
+272 Bytes
examples/17_parameterized_pattern_formation/data/auto/even5/stable_0.npy
Binary file not shown.
Binary file added
BIN
+464 Bytes
examples/17_parameterized_pattern_formation/data/auto/even5/stable_1.npy
Binary file not shown.
Binary file added
BIN
+528 Bytes
examples/17_parameterized_pattern_formation/data/auto/even5/stable_2.npy
Binary file not shown.
Binary file added
BIN
+560 Bytes
examples/17_parameterized_pattern_formation/data/auto/even5/stable_3.npy
Binary file not shown.
Binary file added
BIN
+640 Bytes
examples/17_parameterized_pattern_formation/data/auto/even5/stable_4.npy
Binary file not shown.
Binary file added
BIN
+512 Bytes
examples/17_parameterized_pattern_formation/data/auto/even5/stable_5.npy
Binary file not shown.
Binary file added
BIN
+2.41 KB
examples/17_parameterized_pattern_formation/data/auto/even5/unstable_0.npy
Binary file not shown.
Binary file added
BIN
+464 Bytes
examples/17_parameterized_pattern_formation/data/auto/even5/unstable_1.npy
Binary file not shown.
Binary file added
BIN
+448 Bytes
examples/17_parameterized_pattern_formation/data/auto/even5/unstable_2.npy
Binary file not shown.
Binary file added
BIN
+480 Bytes
examples/17_parameterized_pattern_formation/data/auto/even5/unstable_3.npy
Binary file not shown.
Binary file added
BIN
+560 Bytes
examples/17_parameterized_pattern_formation/data/auto/even5/unstable_4.npy
Binary file not shown.
Binary file added
BIN
+640 Bytes
examples/17_parameterized_pattern_formation/data/auto/even5/unstable_5.npy
Binary file not shown.
Binary file removed
BIN
-59.6 KB
examples/17_parameterized_pattern_formation/data/auto/even_pars.npy
Binary file not shown.
Binary file removed
BIN
-10.8 MB
examples/17_parameterized_pattern_formation/data/auto/even_sols.npy
Binary file not shown.
Binary file added
BIN
+416 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd2/stable_0.npy
Binary file not shown.
Binary file added
BIN
+656 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd2/stable_1.npy
Binary file not shown.
Binary file added
BIN
+688 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd2/stable_2.npy
Binary file not shown.
Binary file added
BIN
+688 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd2/stable_3.npy
Binary file not shown.
Binary file added
BIN
+688 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd2/stable_4.npy
Binary file not shown.
Binary file added
BIN
+704 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd2/stable_5.npy
Binary file not shown.
Binary file added
BIN
+688 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd2/stable_6.npy
Binary file not shown.
Binary file added
BIN
+704 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd2/stable_7.npy
Binary file not shown.
Binary file added
BIN
+656 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd2/stable_8.npy
Binary file not shown.
Binary file added
BIN
+1.78 KB
examples/17_parameterized_pattern_formation/data/auto/odd2/unstable_0.npy
Binary file not shown.
Binary file added
BIN
+656 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd2/unstable_1.npy
Binary file not shown.
Binary file added
BIN
+608 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd2/unstable_2.npy
Binary file not shown.
Binary file added
BIN
+624 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd2/unstable_3.npy
Binary file not shown.
Binary file added
BIN
+656 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd2/unstable_4.npy
Binary file not shown.
Binary file added
BIN
+672 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd2/unstable_5.npy
Binary file not shown.
Binary file added
BIN
+688 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd2/unstable_6.npy
Binary file not shown.
Binary file added
BIN
+688 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd2/unstable_7.npy
Binary file not shown.
Binary file added
BIN
+704 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd2/unstable_8.npy
Binary file not shown.
Binary file added
BIN
+624 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd3/stable_0.npy
Binary file not shown.
Binary file added
BIN
+768 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd3/stable_1.npy
Binary file not shown.
Binary file added
BIN
+832 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd3/stable_2.npy
Binary file not shown.
Binary file added
BIN
+848 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd3/stable_3.npy
Binary file not shown.
Binary file added
BIN
+816 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd3/stable_4.npy
Binary file not shown.
Binary file added
BIN
+832 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd3/stable_5.npy
Binary file not shown.
Binary file added
BIN
+864 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd3/stable_6.npy
Binary file not shown.
Binary file added
BIN
+816 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd3/stable_7.npy
Binary file not shown.
Binary file added
BIN
+1.7 KB
examples/17_parameterized_pattern_formation/data/auto/odd3/unstable_0.npy
Binary file not shown.
Binary file added
BIN
+816 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd3/unstable_1.npy
Binary file not shown.
Binary file added
BIN
+816 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd3/unstable_2.npy
Binary file not shown.
Binary file added
BIN
+800 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd3/unstable_3.npy
Binary file not shown.
Binary file added
BIN
+816 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd3/unstable_4.npy
Binary file not shown.
Binary file added
BIN
+816 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd3/unstable_5.npy
Binary file not shown.
Binary file added
BIN
+848 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd3/unstable_6.npy
Binary file not shown.
Binary file added
BIN
+896 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd3/unstable_7.npy
Binary file not shown.
Binary file added
BIN
+512 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd4/stable_0.npy
Binary file not shown.
Binary file added
BIN
+640 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd4/stable_1.npy
Binary file not shown.
Binary file added
BIN
+656 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd4/stable_2.npy
Binary file not shown.
Binary file added
BIN
+672 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd4/stable_3.npy
Binary file not shown.
Binary file added
BIN
+672 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd4/stable_4.npy
Binary file not shown.
Binary file added
BIN
+688 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd4/stable_5.npy
Binary file not shown.
Binary file added
BIN
+704 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd4/stable_6.npy
Binary file not shown.
Binary file added
BIN
+720 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd4/stable_7.npy
Binary file not shown.
Binary file added
BIN
+576 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd4/stable_8.npy
Binary file not shown.
Binary file added
BIN
+1.78 KB
examples/17_parameterized_pattern_formation/data/auto/odd4/unstable_0.npy
Binary file not shown.
Binary file added
BIN
+656 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd4/unstable_1.npy
Binary file not shown.
Binary file added
BIN
+656 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd4/unstable_2.npy
Binary file not shown.
Binary file added
BIN
+640 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd4/unstable_3.npy
Binary file not shown.
Binary file added
BIN
+672 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd4/unstable_4.npy
Binary file not shown.
Binary file added
BIN
+704 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd4/unstable_5.npy
Binary file not shown.
Binary file added
BIN
+688 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd4/unstable_6.npy
Binary file not shown.
Binary file added
BIN
+704 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd4/unstable_7.npy
Binary file not shown.
Binary file added
BIN
+720 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd4/unstable_8.npy
Binary file not shown.
Binary file added
BIN
+384 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd5/stable_0.npy
Binary file not shown.
Binary file added
BIN
+496 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd5/stable_1.npy
Binary file not shown.
Binary file added
BIN
+528 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd5/stable_2.npy
Binary file not shown.
Binary file added
BIN
+592 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd5/stable_3.npy
Binary file not shown.
Binary file added
BIN
+608 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd5/stable_4.npy
Binary file not shown.
Binary file added
BIN
+2.56 KB
examples/17_parameterized_pattern_formation/data/auto/odd5/unstable_0.npy
Binary file not shown.
Binary file added
BIN
+432 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd5/unstable_1.npy
Binary file not shown.
Binary file added
BIN
+464 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd5/unstable_2.npy
Binary file not shown.
Binary file added
BIN
+528 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd5/unstable_3.npy
Binary file not shown.
Binary file added
BIN
+592 Bytes
examples/17_parameterized_pattern_formation/data/auto/odd5/unstable_4.npy
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file added
BIN
+4.27 KB
examples/17_parameterized_pattern_formation/data/auto/periodic/unstable_1.npy
Binary file not shown.
Binary file added
BIN
+992 Bytes
examples/17_parameterized_pattern_formation/data/auto/periodic2/stable_0.npy
Binary file not shown.
Binary file added
BIN
+2.86 KB
examples/17_parameterized_pattern_formation/data/auto/periodic2/unstable_0.npy
Binary file not shown.
Binary file added
BIN
+3.53 KB
examples/17_parameterized_pattern_formation/data/auto/periodic2/unstable_1.npy
Binary file not shown.
Binary file added
BIN
+976 Bytes
examples/17_parameterized_pattern_formation/data/auto/periodic3/stable_0.npy
Binary file not shown.
Binary file added
BIN
+2.84 KB
examples/17_parameterized_pattern_formation/data/auto/periodic3/unstable_0.npy
Binary file not shown.
Binary file added
BIN
+3.58 KB
examples/17_parameterized_pattern_formation/data/auto/periodic3/unstable_1.npy
Binary file not shown.
Binary file added
BIN
+944 Bytes
examples/17_parameterized_pattern_formation/data/auto/periodic4/stable_0.npy
Binary file not shown.
Binary file added
BIN
+2.84 KB
examples/17_parameterized_pattern_formation/data/auto/periodic4/unstable_0.npy
Binary file not shown.
Binary file added
BIN
+3.53 KB
examples/17_parameterized_pattern_formation/data/auto/periodic4/unstable_1.npy
Binary file not shown.
Binary file added
BIN
+672 Bytes
examples/17_parameterized_pattern_formation/data/auto/periodic5/stable_0.npy
Binary file not shown.
Binary file added
BIN
+3.16 KB
examples/17_parameterized_pattern_formation/data/auto/periodic5/unstable_0.npy
Binary file not shown.
Binary file added
BIN
+12.2 KB
examples/17_parameterized_pattern_formation/data/auto/periodic5/unstable_1.npy
Binary file not shown.
Binary file removed
BIN
-38.8 KB
examples/17_parameterized_pattern_formation/data/auto/periodic_pars.npy
Binary file not shown.
Binary file removed
BIN
-992 KB
examples/17_parameterized_pattern_formation/data/auto/periodic_sols.npy
Binary file not shown.
147 changes: 147 additions & 0 deletions
147
examples/17_parameterized_pattern_formation/data/auto/snaking_E2.f90
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,147 @@ | ||
!---------------------------------------------------------------------- | ||
!---------------------------------------------------------------------- | ||
! cir : Homoclinic Bifurcation in cubic swift hohenberg | ||
!---------------------------------------------------------------------- | ||
!---------------------------------------------------------------------- | ||
|
||
SUBROUTINE FUNC(NDIM,U,ICP,PAR,IJAC,F,DFDU,DFDP) | ||
! ---------- ---- | ||
|
||
IMPLICIT NONE | ||
INTEGER, INTENT(IN) :: NDIM, ICP(*), IJAC | ||
DOUBLE PRECISION, INTENT(IN) :: U(NDIM), PAR(*) | ||
DOUBLE PRECISION, INTENT(OUT) :: F(NDIM) | ||
DOUBLE PRECISION, INTENT(INOUT) :: DFDU(NDIM,NDIM), DFDP(NDIM,*) | ||
|
||
DOUBLE PRECISION E | ||
DOUBLE PRECISION D1 | ||
DOUBLE PRECISION D2 | ||
DOUBLE PRECISION D3 | ||
DOUBLE PRECISION U1 | ||
DOUBLE PRECISION U2 | ||
DOUBLE PRECISION U3 | ||
DOUBLE PRECISION U4 | ||
DOUBLE PRECISION U5 | ||
|
||
E=PAR(1) | ||
D1=0 | ||
D3=0 | ||
U2=0 | ||
U4=0 | ||
D2=(-2.001+0.004*E+0.009*E*E)/(1.002+-0.000*E+-0.005*E*E) | ||
U1=(-1.000+-0.692+-0.075*E+-0.001*E*E)/(1.002+-0.000*E+-0.005*E*E) | ||
U3=(1.793+-0.296*E+-0.021*E*E)/(1.002+-0.000*E+-0.005*E*E) | ||
U5=-(0.760+0.061*E+0.008*E*E)/(1.002+-0.000*E+-0.005*E*E) | ||
|
||
F(1)= U(2) | ||
F(2)= U(3) | ||
F(3)= U(4) | ||
F(4)= U1*U(1)+U2*U(1)**2+U3*U(1)**3+U4*U(1)**4+U5*U(1)**5+D1*U(2)+D2*U(3)+D3*U(3) | ||
|
||
IF(IJAC.EQ.0)RETURN | ||
|
||
END SUBROUTINE FUNC | ||
|
||
SUBROUTINE STPNT(NDIM,U,PAR,T) | ||
! ---------- ----- | ||
|
||
IMPLICIT NONE | ||
INTEGER, INTENT(IN) :: NDIM | ||
DOUBLE PRECISION, INTENT(INOUT) :: U(NDIM),PAR(*) | ||
DOUBLE PRECISION, INTENT(IN) :: T | ||
|
||
!---------------------------------------------------------------------- | ||
! Problem parameters (only PAR(1-9) are available to the user) : | ||
|
||
U(1)=0.0 | ||
U(2)=0.0 | ||
U(3)=0.0 | ||
U(4)=0.0 | ||
PAR(1)=0.0 ! E | ||
|
||
!---------------------------------------------------------------------- | ||
! If IEQUIB >0 put initial equilibrium in PAR(11+i), i=1,...,NDIM : | ||
|
||
PAR(12) = 0.0 | ||
PAR(13) = 0.0 | ||
PAR(14) = 0.0 | ||
PAR(15) = 0.0 | ||
|
||
|
||
END SUBROUTINE STPNT | ||
|
||
SUBROUTINE PVLS(NDIM,U,PAR) | ||
! ---------- ---- | ||
|
||
IMPLICIT NONE | ||
INTEGER, INTENT(IN) :: NDIM | ||
DOUBLE PRECISION, INTENT(IN) :: U(NDIM) | ||
DOUBLE PRECISION, INTENT(INOUT) :: PAR(*) | ||
! Homoclinic bifurcations COMMON block needed here : | ||
COMMON /BLHOM/ ITWIST,ISTART,IEQUIB,NFIXED,NPSI,NUNSTAB,NSTAB,NREV | ||
INTEGER ITWIST,ISTART,IEQUIB,NFIXED,NPSI,NUNSTAB,NSTAB,NREV | ||
INTEGER I | ||
|
||
DOUBLE PRECISION E | ||
DOUBLE PRECISION D1 | ||
DOUBLE PRECISION D2 | ||
DOUBLE PRECISION D3 | ||
DOUBLE PRECISION U1 | ||
DOUBLE PRECISION U2 | ||
DOUBLE PRECISION U3 | ||
DOUBLE PRECISION U4 | ||
DOUBLE PRECISION U5 | ||
|
||
E=PAR(1) | ||
D1=0 | ||
D3=0 | ||
U2=0 | ||
U4=0 | ||
D2=(-2.001+0.004*E+0.009*E*E)/(1.002+-0.000*E+-0.005*E*E) | ||
U1=(-1.000+-0.692+-0.075*E+-0.001*E*E)/(1.002+-0.000*E+-0.005*E*E) | ||
U3=(1.793+-0.296*E+-0.021*E*E)/(1.002+-0.000*E+-0.005*E*E) | ||
U5=-(0.760+0.061*E+0.008*E*E)/(1.002+-0.000*E+-0.005*E*E) | ||
|
||
PAR(2)=D1 | ||
PAR(3)=D2 | ||
PAR(4)=D3 | ||
PAR(5)=U1 | ||
PAR(6)=U2 | ||
PAR(7)=U3 | ||
PAR(8)=U4 | ||
PAR(9)=U5 | ||
|
||
|
||
! If IEQUIB =0 put analytic equilibrium in PAR(11+i), i=1..NDIM | ||
|
||
IF(IEQUIB.EQ.0)THEN | ||
DO I=1,NDIM | ||
PAR(11+I)= 0.0 | ||
ENDDO | ||
ENDIF | ||
|
||
END SUBROUTINE PVLS | ||
|
||
!---------------------------------------------------------------------- | ||
SUBROUTINE BCND(NDIM,PAR,ICP,NBC,U0,U1,FB,IJAC,DBC) | ||
! ---------- ---- | ||
|
||
IMPLICIT NONE | ||
INTEGER, INTENT(IN) :: NDIM,ICP(*),NBC,IJAC | ||
DOUBLE PRECISION, INTENT(IN) :: PAR(*),U0(NDIM),U1(NDIM) | ||
DOUBLE PRECISION, INTENT(OUT) :: FB(NBC) | ||
DOUBLE PRECISION, INTENT(INOUT) :: DBC(NBC,*) | ||
|
||
FB(1)=U0(1) | ||
FB(2)=U1(1) | ||
FB(3)=U0(3) | ||
FB(4)=U1(3) | ||
|
||
END SUBROUTINE BCND | ||
!---------------------------------------------------------------------- | ||
|
||
SUBROUTINE ICND | ||
END SUBROUTINE ICND | ||
|
||
SUBROUTINE FOPT | ||
END SUBROUTINE FOPT |
151 changes: 151 additions & 0 deletions
151
examples/17_parameterized_pattern_formation/data/auto/snaking_E2_T.f90
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,151 @@ | ||
!---------------------------------------------------------------------- | ||
!---------------------------------------------------------------------- | ||
! cir : Homoclinic Bifurcation in an Electronic Circuit | ||
! (the same equations as in demo tor) | ||
!---------------------------------------------------------------------- | ||
!---------------------------------------------------------------------- | ||
|
||
SUBROUTINE FUNC(NDIM,U,ICP,PAR,IJAC,F,DFDU,DFDP) | ||
! ---------- ---- | ||
|
||
IMPLICIT NONE | ||
INTEGER, INTENT(IN) :: NDIM, ICP(*), IJAC | ||
DOUBLE PRECISION, INTENT(IN) :: U(NDIM), PAR(*) | ||
DOUBLE PRECISION, INTENT(OUT) :: F(NDIM) | ||
DOUBLE PRECISION, INTENT(INOUT) :: DFDU(NDIM,NDIM), DFDP(NDIM,*) | ||
|
||
DOUBLE PRECISION E | ||
DOUBLE PRECISION D1 | ||
DOUBLE PRECISION D2 | ||
DOUBLE PRECISION D3 | ||
DOUBLE PRECISION U1 | ||
DOUBLE PRECISION U2 | ||
DOUBLE PRECISION U3 | ||
DOUBLE PRECISION U4 | ||
DOUBLE PRECISION U5 | ||
DOUBLE PRECISION T | ||
|
||
E=PAR(1) | ||
D1=0 | ||
D3=0 | ||
U2=0 | ||
U4=0 | ||
D2=(-2.001+0.004*E+0.009*E*E)/(1.002+-0.000*E+-0.005*E*E) | ||
U1=(-1.000+-0.692+-0.075*E+-0.001*E*E)/(1.002+-0.000*E+-0.005*E*E) | ||
U3=(1.793+-0.296*E+-0.021*E*E)/(1.002+-0.000*E+-0.005*E*E) | ||
U5=-(0.760+0.061*E+0.008*E*E)/(1.002+-0.000*E+-0.005*E*E) | ||
|
||
T=6.283185307179586 | ||
|
||
|
||
F(1)= T*U(2) | ||
F(2)= T*U(3) | ||
F(3)= T*U(4) | ||
F(4)= T*(U1*U(1)+U2*U(1)**2+U3*U(1)**3+U4*U(1)**4+U5*U(1)**5+D1*U(2)+D2*U(3)+D3*U(3)) | ||
|
||
IF(IJAC.EQ.0)RETURN | ||
|
||
END SUBROUTINE FUNC | ||
|
||
SUBROUTINE STPNT(NDIM,U,PAR,T) | ||
! ---------- ----- | ||
|
||
IMPLICIT NONE | ||
INTEGER, INTENT(IN) :: NDIM | ||
DOUBLE PRECISION, INTENT(INOUT) :: U(NDIM),PAR(*) | ||
DOUBLE PRECISION, INTENT(IN) :: T | ||
|
||
!---------------------------------------------------------------------- | ||
! Problem parameters (only PAR(1-9) are available to the user) : | ||
|
||
U(1)=0.0 | ||
U(2)=0.0 | ||
U(3)=0.0 | ||
U(4)=0.0 | ||
PAR(1)=0.0 ! E | ||
|
||
!---------------------------------------------------------------------- | ||
! If IEQUIB >0 put initial equilibrium in PAR(11+i), i=1,...,NDIM : | ||
|
||
PAR(12) = 0.0 | ||
PAR(13) = 0.0 | ||
PAR(14) = 0.0 | ||
PAR(15) = 0.0 | ||
|
||
|
||
END SUBROUTINE STPNT | ||
|
||
SUBROUTINE PVLS(NDIM,U,PAR) | ||
! ---------- ---- | ||
|
||
IMPLICIT NONE | ||
INTEGER, INTENT(IN) :: NDIM | ||
DOUBLE PRECISION, INTENT(IN) :: U(NDIM) | ||
DOUBLE PRECISION, INTENT(INOUT) :: PAR(*) | ||
! Homoclinic bifurcations COMMON block needed here : | ||
COMMON /BLHOM/ ITWIST,ISTART,IEQUIB,NFIXED,NPSI,NUNSTAB,NSTAB,NREV | ||
INTEGER ITWIST,ISTART,IEQUIB,NFIXED,NPSI,NUNSTAB,NSTAB,NREV | ||
INTEGER I | ||
|
||
DOUBLE PRECISION E | ||
DOUBLE PRECISION D1 | ||
DOUBLE PRECISION D2 | ||
DOUBLE PRECISION D3 | ||
DOUBLE PRECISION U1 | ||
DOUBLE PRECISION U2 | ||
DOUBLE PRECISION U3 | ||
DOUBLE PRECISION U4 | ||
DOUBLE PRECISION U5 | ||
|
||
E=PAR(1) | ||
D1=0 | ||
D3=0 | ||
U2=0 | ||
U4=0 | ||
D2=(-2.001+0.004*E+0.009*E*E)/(1.002+-0.000*E+-0.005*E*E) | ||
U1=(-1.000+-0.692+-0.075*E+-0.001*E*E)/(1.002+-0.000*E+-0.005*E*E) | ||
U3=(1.793+-0.296*E+-0.021*E*E)/(1.002+-0.000*E+-0.005*E*E) | ||
U5=-(0.760+0.061*E+0.008*E*E)/(1.002+-0.000*E+-0.005*E*E) | ||
|
||
PAR(2)=D1 | ||
PAR(3)=D2 | ||
PAR(4)=D3 | ||
PAR(5)=U1 | ||
PAR(6)=U2 | ||
PAR(7)=U3 | ||
PAR(8)=U4 | ||
PAR(9)=U5 | ||
|
||
! If IEQUIB =0 put analytic equilibrium in PAR(11+i), i=1..NDIM | ||
|
||
IF(IEQUIB.EQ.0)THEN | ||
DO I=1,NDIM | ||
PAR(11+I)= 0.0 | ||
ENDDO | ||
ENDIF | ||
|
||
END SUBROUTINE PVLS | ||
|
||
!---------------------------------------------------------------------- | ||
SUBROUTINE BCND(NDIM,PAR,ICP,NBC,U0,U1,FB,IJAC,DBC) | ||
! ---------- ---- | ||
|
||
IMPLICIT NONE | ||
INTEGER, INTENT(IN) :: NDIM,ICP(*),NBC,IJAC | ||
DOUBLE PRECISION, INTENT(IN) :: PAR(*),U0(NDIM),U1(NDIM) | ||
DOUBLE PRECISION, INTENT(OUT) :: FB(NBC) | ||
DOUBLE PRECISION, INTENT(INOUT) :: DBC(NBC,*) | ||
|
||
FB(1)=U0(1) | ||
FB(2)=U1(1) | ||
FB(3)=U0(3) | ||
FB(4)=U1(3) | ||
|
||
END SUBROUTINE BCND | ||
!---------------------------------------------------------------------- | ||
|
||
SUBROUTINE ICND | ||
END SUBROUTINE ICND | ||
|
||
SUBROUTINE FOPT | ||
END SUBROUTINE FOPT |
Oops, something went wrong.