src/mmdb_ficif.h
Go to the documentation of this file.
00001 // $Id: mmdb_ficif.h $ 00002 // ================================================================= 00003 // 00004 // CCP4 Coordinate Library: support of coordinate-related 00005 // functionality in protein crystallography applications. 00006 // 00007 // Copyright (C) Eugene Krissinel 2000-2008. 00008 // 00009 // This library is free software: you can redistribute it and/or 00010 // modify it under the terms of the GNU Lesser General Public 00011 // License version 3, modified in accordance with the provisions 00012 // of the license to address the requirements of UK law. 00013 // 00014 // You should have received a copy of the modified GNU Lesser 00015 // General Public License along with this library. If not, copies 00016 // may be downloaded from http://www.ccp4.ac.uk/ccp4license.php 00017 // 00018 // This program is distributed in the hope that it will be useful, 00019 // but WITHOUT ANY WARRANTY; without even the implied warranty of 00020 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00021 // GNU Lesser General Public License for more details. 00022 // 00023 // ================================================================= 00024 // 00025 // 12.09.13 <-- Date of Last Modification. 00026 // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 00027 // ----------------------------------------------------------------- 00028 // 00029 // **** Module : MMDB_FICIF <interface> 00030 // ~~~~~~~~~ 00031 // **** Project : MacroMolecular Data Base (MMDB) 00032 // ~~~~~~~~~ 00033 // **** Classes : 00034 // ~~~~~~~~~ 00035 // 00036 // (C) E. Krissinel 2000-2013 00037 // 00038 // ================================================================= 00039 // 00040 00041 #ifndef __MMDB_FICIF__ 00042 #define __MMDB_FICIF__ 00043 00044 #include "mmdb_machine_.h" 00045 00046 using namespace mmdb; 00047 using namespace mmdb::machine; 00048 00049 // ==================== FORTRAN INTERFACE ======================== 00050 00051 FORTRAN_SUBR ( MMDB_FCIF_INIT, mmdb_fcif_init,(),(),() ); 00052 00053 FORTRAN_SUBR ( MMDB_FCIF_QUIT, mmdb_fcif_quit,(),(),() ); 00054 00055 FORTRAN_SUBR ( MMDB_FCIF_CREATE, mmdb_fcif_create, 00056 ( // lengths-at-end list 00057 fpstr DataName, // file name 00058 int DataName_len // fortran-hidden length of DataName 00059 ), ( // lengths-in-structure list 00060 fpstr DataName 00061 ), ( // lengths-follow list 00062 fpstr DataName, int DataName_len 00063 ) ); 00064 00065 FORTRAN_SUBR ( MMDB_FCIF_WRITE, mmdb_fcif_write, 00066 ( // lengths-at-end list 00067 fpstr FileName, // file name 00068 int * iRet, // return code 00069 int FileName_len // fortran-hidden length of FileName 00070 ), ( // lengths-in-structure list 00071 fpstr FileName, int *iRet 00072 ), ( // lengths-follow list 00073 fpstr FileName, int FileName_len, int * iRet 00074 ) ); 00075 00076 FORTRAN_SUBR ( MMDB_FCIF_PUTDATE, mmdb_fcif_putdate, 00077 ( // lengths-at-end list 00078 fpstr CatName, // category name 00079 fpstr Tag, // tag 00080 int * iRet, // return code 00081 int CatName_len, // fortran-hidden length of CatName 00082 int Tag_len // fortran-hidden length of Tag 00083 ), ( // lengths-in-structure list 00084 fpstr CatName, fpstr Tag, int * iRet 00085 ), ( // lengths-follow list 00086 fpstr CatName, int CatName_len, 00087 fpstr Tag, int Tag_len, 00088 int * iRet 00089 ) ); 00090 00091 FORTRAN_SUBR ( MMDB_FCIF_PUTDOT, mmdb_fcif_putdot, 00092 ( // lengths-at-end list 00093 fpstr CatName, // category name 00094 fpstr Tag, // tag 00095 int * iRet, // return code 00096 int CatName_len, // fortran-hidden length of CatName 00097 int Tag_len // fortran-hidden length of Tag 00098 ), ( // lengths-in-structure list 00099 fpstr CatName, fpstr Tag, int * iRet 00100 ), ( // lengths-follow list 00101 fpstr CatName, int CatName_len, 00102 fpstr Tag, int Tag_len, 00103 int * iRet 00104 ) ); 00105 00106 FORTRAN_SUBR ( MMDB_FCIF_PUTQUESTION, mmdb_fcif_putquestion, 00107 ( // lengths-at-end list 00108 fpstr CatName, // category name 00109 fpstr Tag, // tag 00110 int * iRet, // return code 00111 int CatName_len, // fortran-hidden length of CatName 00112 int Tag_len // fortran-hidden length of Tag 00113 ), ( // lengths-in-structure list 00114 fpstr CatName, fpstr Tag, int * iRet 00115 ), ( // lengths-follow list 00116 fpstr CatName, int CatName_len, 00117 fpstr Tag, int Tag_len, 00118 int * iRet 00119 ) ); 00120 00121 FORTRAN_SUBR ( MMDB_FCIF_PUTSTRING, mmdb_fcif_putstring, 00122 ( // lengths-at-end list 00123 fpstr Data, // data string to store 00124 fpstr CatName, // category name 00125 fpstr Tag, // tag 00126 int * iRet, // return code 00127 int Data_len, // fortran-hidden length of Data 00128 int CatName_len, // fortran-hidden length of CatName 00129 int Tag_len // fortran-hidden length of Tag 00130 ), ( // lengths-in-structure list 00131 fpstr Data, fpstr CatName, fpstr Tag, int * iRet 00132 ), ( // lengths-follow list 00133 fpstr Data, int Data_len, 00134 fpstr CatName, int CatName_len, 00135 fpstr Tag, int Tag_len, 00136 int * iRet 00137 ) ); 00138 00139 FORTRAN_SUBR ( MMDB_FCIF_PUTREAL, mmdb_fcif_putreal, 00140 ( // lengths-at-end list 00141 apireal * V, // real value to store 00142 fpstr CatName, // category name 00143 fpstr Tag, // tag 00144 int * iRet, // return code 00145 int CatName_len, // fortran-hidden length of CatName 00146 int Tag_len // fortran-hidden length of Tag 00147 ), ( // lengths-in-structure list 00148 apireal * V, fpstr CatName, fpstr Tag, int * iRet 00149 ), ( // lengths-follow list 00150 apireal * V, 00151 fpstr CatName, int CatName_len, 00152 fpstr Tag, int Tag_len, 00153 int * iRet 00154 ) ); 00155 00156 FORTRAN_SUBR ( MMDB_FCIF_PUTINTEGER, mmdb_fcif_putinteger, 00157 ( // lengths-at-end list 00158 int * I, // integer value to store 00159 fpstr CatName, // category name 00160 fpstr Tag, // tag 00161 int * iRet, // return code 00162 int CatName_len, // fortran-hidden length of CatName 00163 int Tag_len // fortran-hidden length of Tag 00164 ), ( // lengths-in-structure list 00165 int * I, fpstr CatName, fpstr Tag, int * iRet 00166 ), ( // lengths-follow list 00167 int * I, 00168 fpstr CatName, int CatName_len, 00169 fpstr Tag, int Tag_len, 00170 int * iRet 00171 ) ); 00172 00173 FORTRAN_SUBR ( MMDB_FCIF_PUTLOOPDOT, mmdb_fcif_putloopdot, 00174 ( // lengths-at-end list 00175 fpstr CatName, // category name 00176 fpstr Tag, // tag 00177 int * nrow, // row number 00178 int * iRet, // return code 00179 int CatName_len, // fortran-hidden length of CatName 00180 int Tag_len // fortran-hidden length of Tag 00181 ), ( // lengths-in-structure list 00182 fpstr CatName, fpstr Tag, int * nrow, int * iRet 00183 ), ( // lengths-follow list 00184 fpstr CatName, int CatName_len, 00185 fpstr Tag, int Tag_len, 00186 int * nrow, int * iRet 00187 ) ); 00188 00189 FORTRAN_SUBR ( MMDB_FCIF_PUTLOOPQUESTION, mmdb_fcif_putloopquestion, 00190 ( // lengths-at-end list 00191 fpstr CatName, // category name 00192 fpstr Tag, // tag 00193 int * nrow, // row number 00194 int * iRet, // return code 00195 int CatName_len, // fortran-hidden length of CatName 00196 int Tag_len // fortran-hidden length of Tag 00197 ), ( // lengths-in-structure list 00198 fpstr CatName, fpstr Tag, int * nrow, int * iRet 00199 ), ( // lengths-follow list 00200 fpstr CatName, int CatName_len, 00201 fpstr Tag, int Tag_len, 00202 int * nrow, int * iRet 00203 ) ); 00204 00205 FORTRAN_SUBR ( MMDB_FCIF_PUTLOOPSTRING, mmdb_fcif_putloopstring, 00206 ( // lengths-at-end list 00207 fpstr Data, // data string to store 00208 fpstr CatName, // category name 00209 fpstr Tag, // tag 00210 int * nrow, // row number 00211 int * iRet, // return code 00212 int Data_len, // fortran-hidden length of Data 00213 int CatName_len, // fortran-hidden length of CatName 00214 int Tag_len // fortran-hidden length of Tag 00215 ), ( // lengths-in-structure list 00216 fpstr Data, fpstr CatName, fpstr Tag, 00217 int * nrow, int * iRet 00218 ), ( // lengths-follow list 00219 fpstr Data, int Data_len, 00220 fpstr CatName, int CatName_len, 00221 fpstr Tag, int Tag_len, 00222 int * nrow, int * iRet 00223 ) ); 00224 00225 FORTRAN_SUBR ( MMDB_FCIF_PUTLOOPREAL, mmdb_fcif_putloopreal, 00226 ( // lengths-at-end list 00227 apireal * V, // real value to store 00228 fpstr CatName, // category name 00229 fpstr Tag, // tag 00230 int * nrow, // row number 00231 int * iRet, // return code 00232 int CatName_len, // fortran-hidden length of CatName 00233 int Tag_len // fortran-hidden length of Tag 00234 ), ( // lengths-in-structure list 00235 apireal * V, fpstr CatName, fpstr Tag, 00236 int * nrow, int * iRet 00237 ), ( // lengths-follow list 00238 apireal * V, 00239 fpstr CatName, int CatName_len, 00240 fpstr Tag, int Tag_len, 00241 int * nrow, int * iRet 00242 ) ); 00243 00244 FORTRAN_SUBR ( MMDB_FCIF_PUTLOOPINTEGER, mmdb_fcif_putloopinteger, 00245 ( // lengths-at-end list 00246 int * I, // integer value to store 00247 fpstr CatName, // category name 00248 fpstr Tag, // tag 00249 int * nrow, // row number 00250 int * iRet, // return code 00251 int CatName_len, // fortran-hidden length of CatName 00252 int Tag_len // fortran-hidden length of Tag 00253 ), ( // lengths-in-structure list 00254 int * I, fpstr CatName, fpstr Tag, 00255 int * nrow, int * iRet 00256 ), ( // lengths-follow list 00257 int * I, 00258 fpstr CatName, int CatName_len, 00259 fpstr Tag, int Tag_len, 00260 int * nrow, int * iRet 00261 ) ); 00262 00263 00264 00265 00266 // ==================== C INTERFACE ======================== 00267 00268 extern "C" void MMDB_CCIF_Init(); 00269 extern "C" void MMDB_CCIF_Quit(); 00270 extern "C" void MMDB_CCIF_Create ( pstr DataName ); 00271 extern "C" int MMDB_CCIF_Write ( pstr FileName ); 00272 extern "C" int MMDB_CCIF_PutDate ( pstr CatName, pstr Tag ); 00273 extern "C" int MMDB_CCIF_PutDot ( pstr CatName, pstr Tag ); 00274 extern "C" int MMDB_CCIF_PutQuestion ( pstr CatName, pstr Tag ); 00275 extern "C" int MMDB_CCIF_PutString ( pstr Data, pstr CatName, pstr Tag ); 00276 extern "C" int MMDB_CCIF_PutReal ( realtype V, pstr CatName, pstr Tag ); 00277 extern "C" int MMDB_CCIF_PutInteger ( int I, pstr CatName, pstr Tag ); 00278 extern "C" int MMDB_CCIF_PutLoopDot ( pstr CatName, pstr Tag, int nrow ); 00279 extern "C" int MMDB_CCIF_PutLoopQuestion ( pstr CatName, pstr Tag, int nrow ); 00280 extern "C" int MMDB_CCIF_PutLoopString ( pstr Data, pstr CatName, 00281 pstr Tag, int nrow ); 00282 extern "C" int MMDB_CCIF_PutLoopReal ( realtype V, pstr CatName, 00283 pstr Tag, int nrow ); 00284 extern "C" int MMDB_CCIF_PutLoopInteger ( int I, pstr CatName, 00285 pstr Tag, int nrow ); 00286 00287 #endif
