Line data Source code
1 : ! ***********************************************************************
2 : !
3 : ! Copyright (C) 2012 Bill Paxton, Pablo Marchant & The MESA Team
4 : !
5 : ! This program is free software: you can redistribute it and/or modify
6 : ! it under the terms of the GNU Lesser General Public License
7 : ! as published by the Free Software Foundation,
8 : ! either version 3 of the License, or (at your option) any later version.
9 : !
10 : ! This program is distributed in the hope that it will be useful,
11 : ! but WITHOUT ANY WARRANTY; without even the implied warranty of
12 : ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
13 : ! See the GNU Lesser General Public License for more details.
14 : !
15 : ! You should have received a copy of the GNU Lesser General Public License
16 : ! along with this program. If not, see <https://www.gnu.org/licenses/>.
17 : !
18 : ! ***********************************************************************
19 :
20 : module mod_other_binary_jdot
21 :
22 : ! NOTE: remember to set one of:
23 : ! use_other_jdot_mb = .true.
24 : ! use_other_jdot_gr = .true.
25 : ! use_other_jdot_ml = .true.
26 : ! use_other_extra_jdot = .true.
27 :
28 : implicit none
29 :
30 : contains
31 :
32 0 : subroutine null_other_jdot_mb(binary_id, ierr)
33 : use binary_def, only : binary_info, binary_ptr
34 : integer, intent(in) :: binary_id
35 : integer, intent(out) :: ierr
36 : type (binary_info), pointer :: b
37 : ierr = 0
38 0 : call binary_ptr(binary_id, b, ierr)
39 0 : if (ierr /= 0) then
40 0 : write(*,*) 'failed in binary_ptr'
41 : return
42 : end if
43 0 : b% jdot_mb = 0
44 0 : end subroutine null_other_jdot_mb
45 :
46 0 : subroutine null_other_jdot_gr(binary_id, ierr)
47 0 : use binary_def, only : binary_info, binary_ptr
48 : integer, intent(in) :: binary_id
49 : integer, intent(out) :: ierr
50 : type (binary_info), pointer :: b
51 : ierr = 0
52 0 : call binary_ptr(binary_id, b, ierr)
53 0 : if (ierr /= 0) then
54 0 : write(*,*) 'failed in binary_ptr'
55 : return
56 : end if
57 0 : b% jdot_gr = 0
58 0 : end subroutine null_other_jdot_gr
59 :
60 0 : subroutine null_other_jdot_ml(binary_id, ierr)
61 0 : use binary_def, only : binary_info, binary_ptr
62 : integer, intent(in) :: binary_id
63 : integer, intent(out) :: ierr
64 : type (binary_info), pointer :: b
65 : ierr = 0
66 0 : call binary_ptr(binary_id, b, ierr)
67 0 : if (ierr /= 0) then
68 0 : write(*,*) 'failed in binary_ptr'
69 : return
70 : end if
71 0 : b% jdot_ml = 0
72 0 : end subroutine null_other_jdot_ml
73 :
74 0 : subroutine null_other_extra_jdot(binary_id, ierr)
75 0 : use binary_def, only : binary_info, binary_ptr
76 : integer, intent(in) :: binary_id
77 : integer, intent(out) :: ierr
78 : type (binary_info), pointer :: b
79 : ierr = 0
80 0 : call binary_ptr(binary_id, b, ierr)
81 0 : if (ierr /= 0) then
82 0 : write(*,*) 'failed in binary_ptr'
83 : return
84 : end if
85 0 : b% extra_jdot = 0
86 0 : end subroutine null_other_extra_jdot
87 :
88 0 : subroutine null_other_jdot_ls(binary_id, ierr)
89 0 : use binary_def, only : binary_info, binary_ptr
90 : integer, intent(in) :: binary_id
91 : integer, intent(out) :: ierr
92 : type (binary_info), pointer :: b
93 : ierr = 0
94 0 : call binary_ptr(binary_id, b, ierr)
95 0 : if (ierr /= 0) then
96 0 : write(*,*) 'failed in binary_ptr'
97 : return
98 : end if
99 0 : b% jdot_ls = 0
100 0 : end subroutine null_other_jdot_ls
101 :
102 0 : subroutine null_other_jdot_missing_wind(binary_id, ierr)
103 0 : use binary_def, only : binary_info, binary_ptr
104 : integer, intent(in) :: binary_id
105 : integer, intent(out) :: ierr
106 : type (binary_info), pointer :: b
107 : ierr = 0
108 0 : call binary_ptr(binary_id, b, ierr)
109 0 : if (ierr /= 0) then
110 0 : write(*,*) 'failed in binary_ptr'
111 : return
112 : end if
113 0 : b% jdot_missing_wind = 0
114 0 : end subroutine null_other_jdot_missing_wind
115 :
116 :
117 : end module mod_other_binary_jdot
118 :
|
