admis_reg.f90: SUBROUTINE admis_reg(name0,iun,tc,att,idsta_s,nroots,roots,c,refs, & admis_reg.f90: END SUBROUTINE admis_reg admis_reg.f90: SUBROUTINE find_pos_roots(poldeg,coef,roots,nroots,hzflag,multfl) admis_reg.f90: END SUBROUTINE find_pos_roots angle_var.f90:END FUNCTION princ angle_var.f90:SUBROUTINE angupd(ang,vang,ng) angle_var.f90:END SUBROUTINE angupd angle_var.f90:SUBROUTINE angvcf(unit,cf,error) angle_var.f90:END SUBROUTINE angvcf angle_var.f90:SUBROUTINE sessag(ang,siga,inta,mina,seca) angle_var.f90:END SUBROUTINE sessag angle_var.f90:SUBROUTINE polar(x,alpha,delta,r) angle_var.f90:END SUBROUTINE polar astrometric_observations.f90:! MODULE astrometric_observations astrometric_observations.f90:! CONTAINS astrometric_observations.f90:! SUBROUTINE write_rwo(file,obs,obsw,n,error_model,rms,rmsmag,sort,unit0) astrometric_observations.f90:! SUBROUTINE write_rwo_rad(unit, obs, obsw) astrometric_observations.f90:! SUBROUTINE write_rwo_opt(unit,obs,obsw,error,nrec) astrometric_observations.f90:! SUBROUTINE write_rwo_pos(unit,obs,obsw) astrometric_observations.f90:! SUBROUTINE write_rwo_header(unit, error_model, nrec, rms, rmsmag) astrometric_observations.f90:! SUBROUTINE read_rwo(file,obs,obsw,n,error_model,rms,rmsmag,unit0,eof0) astrometric_observations.f90:! SUBROUTINE read_rwo_rec(unit,nr,obs1,obsw1,error, eof) astrometric_observations.f90:! SUBROUTINE read_rwo_header(unit, error_model, error, rms, rmsmag) astrometric_observations.f90:! SUBROUTINE mpc_obs_input(obs_found,obs,nobs,unit,filnam,eof,ons_mode) astrometric_observations.f90:! SUBROUTINE mpcrec_transform(mpcrec,obs,complete,error,skip_rad,ons_mode) astrometric_observations.f90:! SUBROUTINE mpcrec_add_obspos(obs,error,mpcrec1,mpcrec2) astrometric_observations.f90:! SUBROUTINE jpl_radarobs(obs_found,file,obs,nobs) astrometric_observations.f90:! SUBROUTINE jplradar_transform(rec,obs,error) astrometric_observations.f90:! CHARACTER(LEN=11) FUNCTION radar_resid_string(value,defined) astrometric_observations.f90:! INTEGER FUNCTION radar_station(stastr) astrometric_observations.f90:! SUBROUTINE input_obs(obsdir,astna0,precob,error_model,obs0,obs,obsw,m,iun20,change,rms,rmsmag) astrometric_observations.f90:! SUBROUTINE addobs_mpc(obs,obsw,m,obst,obswt,mt,mnew,change) astrometric_observations.f90:! SUBROUTINE addobs_rwo(obs,obsw,m,obst,obswt,mt,change) astrometric_observations.f90:! INTEGER FUNCTION find_obs(obst,obs,m,double) astrometric_observations.f90:! LOGICAL FUNCTION changed_obs(obst,obswt,obs,obsw) astrometric_observations.f90:! SUBROUTINE aster_radius(objid,obstype,m) astrometric_observations.f90:! SUBROUTINE rdanga(string,angle,acc,error) astrometric_observations.f90:! HEADERS AND MODULES astrometric_observations.f90:MODULE astrometric_observations astrometric_observations.f90:! SUBROUTINEs astrometric_observations.f90:! and is ALLOCATEd and initialized by SUBROUTINE mpcrec_add_obspos or SUBROUTINE read_rwo astrometric_observations.f90:! MODULE PROCEDURE drop_geopos astrometric_observations.f90:CONTAINS astrometric_observations.f90:TYPE(ast_obs_direct) FUNCTION drop_geopos(obs) astrometric_observations.f90:END FUNCTION drop_geopos astrometric_observations.f90:TYPE(ast_obs) FUNCTION add_geopos(obs) astrometric_observations.f90:END FUNCTION add_geopos astrometric_observations.f90:! SUBMODULE iorwo astrometric_observations.f90:SUBROUTINE write_rwo(file,obs,obsw,n,error_model,rms,rmsmag,sort,unit0) astrometric_observations.f90:END SUBROUTINE write_rwo astrometric_observations.f90:SUBROUTINE write_rwo_rad(unit, obs, obsw) astrometric_observations.f90:END SUBROUTINE write_rwo_rad astrometric_observations.f90:SUBROUTINE write_rwo_opt(unit,obs,obsw,error,nrec) astrometric_observations.f90:END SUBROUTINE write_rwo_opt astrometric_observations.f90:SUBROUTINE write_rwo_pos(unit,obs,obsw) astrometric_observations.f90:END SUBROUTINE write_rwo_pos astrometric_observations.f90:CHARACTER(LEN=11) FUNCTION radar_resid_string(value,defined) astrometric_observations.f90:END FUNCTION radar_resid_string astrometric_observations.f90:SUBROUTINE write_rwo_header(unit, error_model, nrec, rms, rmsmag) astrometric_observations.f90:END SUBROUTINE write_rwo_header astrometric_observations.f90:SUBROUTINE read_rwo(file,obs,obsw,n,error_model,rms,rmsmag,unit0,eof0) astrometric_observations.f90:END SUBROUTINE read_rwo astrometric_observations.f90:SUBROUTINE read_rwo_rec(unit,nr,obs1,obsw1,error, eof) astrometric_observations.f90:END SUBROUTINE read_rwo_rec astrometric_observations.f90:SUBROUTINE read_rwo_header(unit, error_model, error, nr, rms, rmsmag) astrometric_observations.f90:END SUBROUTINE read_rwo_header astrometric_observations.f90:! END SUBMODULE iorwo astrometric_observations.f90:! SUBMODULE iompc astrometric_observations.f90:SUBROUTINE mpc_obs_input(obs_found,obs,nobs,unit,filnam,eof,ons_mode) astrometric_observations.f90:END SUBROUTINE mpc_obs_input astrometric_observations.f90:SUBROUTINE mpcrec_transform(mpcrec,obs,complete,error,skip_rad,ons_mode) astrometric_observations.f90:END SUBROUTINE mpcrec_transform astrometric_observations.f90:SUBROUTINE mpcrec_add_obspos(obs,error,mpcrec1,mpcrec2) astrometric_observations.f90:END SUBROUTINE mpcrec_add_obspos astrometric_observations.f90:! END SUBMODULE iompc astrometric_observations.f90:! SUBMODULE ioradar astrometric_observations.f90:SUBROUTINE jpl_radarobs(obs_found,file,obs,nobs) astrometric_observations.f90:END SUBROUTINE jpl_radarobs astrometric_observations.f90:SUBROUTINE jplradar_transform(rec,obs,error) astrometric_observations.f90:END SUBROUTINE jplradar_transform astrometric_observations.f90:INTEGER FUNCTION radar_station(stastr) astrometric_observations.f90:END FUNCTION radar_station astrometric_observations.f90:! END SUBMODULE ioradar astrometric_observations.f90:SUBROUTINE input_obs(obsdir,astna0,precob,error_model,obs0,obs,obsw,m,iun20,change,rms,rmsmag) astrometric_observations.f90:END SUBROUTINE input_obs astrometric_observations.f90:! SUBMODULE addobs astrometric_observations.f90:SUBROUTINE addobs_mpc(obs,obsw,m,obst,obswt,mt,mnew,change) astrometric_observations.f90:END SUBROUTINE addobs_mpc astrometric_observations.f90:INTEGER FUNCTION find_obs(obst,obs,m,double) astrometric_observations.f90:END FUNCTION find_obs astrometric_observations.f90:LOGICAL FUNCTION changed_obs(obst,obswt,obs,obsw) astrometric_observations.f90:END FUNCTION changed_obs astrometric_observations.f90:SUBROUTINE addobs_rwo(obs,obsw,m,obst,obswt,mt,change) astrometric_observations.f90:END SUBROUTINE addobs_rwo astrometric_observations.f90:SUBROUTINE aster_radius(objid,obstype,m) astrometric_observations.f90:END SUBROUTINE aster_radius astrometric_observations.f90:SUBROUTINE rdanga(string,angle,acc,error) astrometric_observations.f90:END SUBROUTINE rdanga astrometric_observations.f90:!SUB-MODULE observ_bias_weight astrometric_observations.f90:SUBROUTINE observ_rms(obs,error_model,init,obsw,n) astrometric_observations.f90:END SUBROUTINE observ_rms astrometric_observations.f90:SUBROUTINE astrow_bias_cbm(error_model,obs,obsw) astrometric_observations.f90:END SUBROUTINE astrow_bias_cbm astrometric_observations.f90:SUBROUTINE astrow_nobias(error_model,obs,obsw) astrometric_observations.f90:END SUBROUTINE astrow_nobias astrometric_observations.f90:DOUBLE PRECISION FUNCTION magrms_new(magstr,tdt,idsta,typ) astrometric_observations.f90:END FUNCTION magrms_new astrometric_observations.f90:! END SUB_MODULE observ_bias_weight astrometric_observations.f90:END MODULE astrometric_observations attributable.f90:MODULE attributable attributable.f90:CONTAINS attributable.f90:!TYPE(attrib_c) FUNCTION drop_curv(att) attributable.f90:!END FUNCTION drop_curv attributable.f90:SUBROUTINE rea_attri(iunatt,iunrat,name0,att,trou,eof) attributable.f90:END SUBROUTINE rea_attri attributable.f90:SUBROUTINE wri_attri(iunatt,iunrat,name0,att,trou,nvir) attributable.f90:END SUBROUTINE wri_attri attributable.f90:SUBROUTINE attri_comp(m,obs,obsw,att,error,qobs,qpobs,qppobs) attributable.f90:END SUBROUTINE attri_comp attributable.f90: SUBROUTINE covar_curvacc(eta,a,d,da,dd,dda,ddd,g3a,g3d,gked) attributable.f90: END SUBROUTINE covar_curvacc attributable.f90: DOUBLE PRECISION FUNCTION max_sphdist(alpha,delta,m) attributable.f90: END FUNCTION max_sphdist attributable.f90: DOUBLE PRECISION FUNCTION spher_dist(obs1,obs2) attributable.f90:END FUNCTION spher_dist attributable.f90:SUBROUTINE att_diff(att1,att2,datt) attributable.f90:END SUBROUTINE att_diff attributable.f90:END MODULE attributable bin_search.f90:SUBROUTINE bin_search_rea(a,ntot,i1,i2,alist,ordind,indnum) bin_search.f90:END SUBROUTINE bin_search_rea bin_search.f90:SUBROUTINE bin_search(name,ntot,namlist,ordind,indname) !,indordname) bin_search.f90:END SUBROUTINE bin_search bin_search.f90:SUBROUTINE heapsortnach(a,n,ind) bin_search.f90:END SUBROUTINE heapsortnach bin_search.f90:SUBROUTINE heapsortnachlo(a,n,le,q,ind) bin_search.f90:END SUBROUTINE heapsortnachlo bin_search.f90:SUBROUTINE bin_search_int(iname,ntot,inamlist,ordind,indname) bin_search.f90:END SUBROUTINE bin_search_int cat_debias.f90:MODULE cat_debias cat_debias.f90: CONTAINS cat_debias.f90: SUBROUTINE cat_bias_init cat_debias.f90: END SUBROUTINE cat_bias_init cat_debias.f90: ! SUBROUTINE cat_find cat_debias.f90: SUBROUTINE cat_find(mpcflag,t_cat,obscode,catcode) cat_debias.f90: END SUBROUTINE cat_find cat_debias.f90: ! SUBROUTINE cat_bias cat_debias.f90: SUBROUTINE cat_bias(phi,del,catcode,bias_RA,bias_DEC,biasflag) cat_debias.f90: END SUBROUTINE cat_bias cat_debias.f90:END MODULE cat_debias char_str.f90:! MODULE CHAR_STR char_str.f90:MODULE char_str char_str.f90:END MODULE char_str char_str.f90:! CONTAINS char_str.f90:! SUBROUTINES char_str.f90:INTEGER FUNCTION lench(c) char_str.f90:END FUNCTION lench char_str.f90:SUBROUTINE rmsp(c,l) char_str.f90:END SUBROUTINE rmsp char_str.f90:SUBROUTINE norstr(c,l) char_str.f90:END SUBROUTINE norstr char_str.f90:SUBROUTINE strcnt(string,cont,rest,error) char_str.f90:END SUBROUTINE strcnt char_str.f90:SUBROUTINE upcase(string) char_str.f90:END SUBROUTINE upcase char_str.f90:SUBROUTINE stspli(c,sep,item1,nospli) char_str.f90:END SUBROUTINE stspli char_str.f90:LOGICAL FUNCTION isnum(string) char_str.f90:END FUNCTION isnum char_str.f90:LOGICAL FUNCTION islett(string) char_str.f90:END FUNCTION islett char_str.f90:INTEGER FUNCTION nitchs(c) char_str.f90:END FUNCTION nitchs char_str.f90:SUBROUTINE locase(string) char_str.f90:END SUBROUTINE locase char_str.f90:SUBROUTINE spflds(string,field,nf,nfx) char_str.f90:END SUBROUTINE spflds char_str.f90:LOGICAL FUNCTION isbnum(string) char_str.f90:END FUNCTION isbnum char_str.f90:SUBROUTINE filstr(cin,cout,lt,nbi,just) char_str.f90:END SUBROUTINE filstr char_str.f90:SUBROUTINE real2string(value,ndigits_1,ndigits_2,string,error) char_str.f90:END SUBROUTINE real2string char_str.f90:INTEGER FUNCTION char_count(string,le,cha) char_str.f90:END FUNCTION char_count chebi_pol.f90:MODULE chebi_pol chebi_pol.f90:CONTAINS chebi_pol.f90: SUBROUTINE chebym(x,n,p) chebi_pol.f90: END SUBROUTINE chebym chebi_pol.f90: SUBROUTINE chebyd(x,n,ntder,p,pd,pdd) chebi_pol.f90: END SUBROUTINE chebyd chebi_pol.f90: SUBROUTINE lgnint(x,t,npt,ngr,coef,sigma) chebi_pol.f90: END SUBROUTINE lgnint chebi_pol.f90: SUBROUTINE pcwlgi(x,t,n,nd,nx, & chebi_pol.f90: END SUBROUTINE pcwlgi chebi_pol.f90: SUBROUTINE smoocn(x,y,y1,y2,nsmord) chebi_pol.f90: END SUBROUTINE smoocn chebi_pol.f90:END MODULE chebi_pol delaunay_triang.f90:SUBROUTINE triangola(npox,ntrix,xRR,yRR,nodiest,noditot,triang,nt) delaunay_triang.f90:END SUBROUTINE triangola delaunay_triang.f90:SUBROUTINE nuovotriangolo(triangnew1,segnew,xR1,yR1,xR2,yR2, & delaunay_triang.f90:END SUBROUTINE nuovotriangolo delaunay_triang.f90:SUBROUTINE nuovotriangolo2(triangnew1,segnew,xR1,yR1,xR2,yR2, & delaunay_triang.f90:END SUBROUTINE nuovotriangolo2 delaunay_triang.f90:SUBROUTINE listaswap(npox,ntrix,triangnew,xRnew,yRnew,xcirccentrnew,seg, & delaunay_triang.f90:END SUBROUTINE listaswap delaunay_triang.f90:SUBROUTINE swappalista(npox,ntrix,triangnew,xRnew,yRnew,xcirccentrnew,seg, & delaunay_triang.f90:END SUBROUTINE swappalista delaunay_triang.f90:SUBROUTINE cercatriangolivicini(npox,ntrix,triang,nt,quale,quantivicini,& delaunay_triang.f90:END SUBROUTINE cercatriangolivicini delaunay_triang.f90:SUBROUTINE verificaint(npox,ntrix,triang,nt,xR5,yR5,intersez2,& delaunay_triang.f90:END SUBROUTINE verificaint delaunay_triang.f90:SUBROUTINE cercanodivicini(npox,ntrix,quale,seg,xR,yR,density,nt) delaunay_triang.f90:END SUBROUTINE cercanodivicini delaunay_triang.f90:SUBROUTINE smoothing(npox,ntrix,eps,nodiest,noditot,nt,seg, & delaunay_triang.f90:END SUBROUTINE smoothing delaunay_triang.f90:SUBROUTINE outtriang(trifil,noditot,nt,xR,yR,triang) delaunay_triang.f90:END SUBROUTINE outtriang delaunay_triang.f90:SUBROUTINE intriang(npox,ntrix,trifil,noditot,nt,xR,yR,triang) delaunay_triang.f90:END SUBROUTINE intriang delaunay_triang.f90:SUBROUTINE merge_triang(npox,ntrix,frv1,rdot1,npotot1,triang1,ntri1, & delaunay_triang.f90:END SUBROUTINE merge_triang delaunay_triang.f90:SUBROUTINE uniform(xRR,yRR,nodiinit,nodifin,quali,npoxmul) delaunay_triang.f90:END SUBROUTINE uniform ever_pitkin.f90:MODULE ever_pitkin ever_pitkin.f90:CONTAINS ever_pitkin.f90: SUBROUTINE fser_propag(x0,y0,t0,t,mu,x,y) ever_pitkin.f90: END SUBROUTINE fser_propag ever_pitkin.f90: SUBROUTINE fser_propag_der(x0,y0,t0,t,mu,x,y,dxydxy0) ever_pitkin.f90: END SUBROUTINE fser_propag_der ever_pitkin.f90: SUBROUTINE solve_kepuniv(dt,r0,sig0,mu,alpha,psi,s0,s1,s2,s3,conv_contr) ever_pitkin.f90: END SUBROUTINE solve_kepuniv ever_pitkin.f90: SUBROUTINE solve_kepuniv2(dt,r0,sig0,mu,alpha,e0,psi,s0,s1,s2,s3,conv_contr,ds2da,ds0da) ever_pitkin.f90: END SUBROUTINE solve_kepuniv2 ever_pitkin.f90: SUBROUTINE solve_peri(r0,sig0,peri,mu,alpha,psi,dt,conv_contr) ever_pitkin.f90: END SUBROUTINE solve_peri ever_pitkin.f90: DOUBLE PRECISION FUNCTION r_of_psi(psi,alpha,r0,sig0,mu) ever_pitkin.f90: END FUNCTION r_of_psi ever_pitkin.f90: SUBROUTINE s_funct(psi,alpha,s0,s1,s2,s3,conv_contr,ds2da,ds0da) ever_pitkin.f90: END SUBROUTINE s_funct ever_pitkin.f90: SUBROUTINE pdtime(r0,r,mu,alpha,psi_ini,psi,dt,conv_contr) ever_pitkin.f90: END SUBROUTINE pdtime ever_pitkin.f90:END MODULE ever_pitkin ever_pitkin.f90:LOGICAL FUNCTION ecc_cont(x,y,mu,eccmax,qmax,ecc,q,energy) ever_pitkin.f90: END FUNCTION ecc_cont fidinam4.f90:SUBROUTINE filnam(eledir,astnam,suffix,file,le) fidinam4.f90:END SUBROUTINE filnam fidinam4.f90:SUBROUTINE splinam(name0,name1,m) fidinam4.f90:END SUBROUTINE splinam fidinam4.f90:SUBROUTINE fidinam(eledir0,astnam0,suffix,file,le) fidinam4.f90:END SUBROUTINE fidinam fidinam4.f90:CHARACTER*10 FUNCTION dircom4(name0,le) fidinam4.f90:END FUNCTION dircom4 fidinam4.f90:INTEGER FUNCTION lunation(mjd) ! number of lunations, from some origin fidinam4.f90:END FUNCTION lunation fidinam4.f90:SUBROUTINE lun_limits(lun,t1,t2) fidinam4.f90:END SUBROUTINE lun_limits fidinam4.f90:SUBROUTINE ons_code2(n, y, m , d, station, our_ons_code) fidinam4.f90:END SUBROUTINE ons_code2 fidinam4.f90:SUBROUTINE encode_number(n, n_enc) fidinam4.f90:END SUBROUTINE encode_number fidinam4.f90:SUBROUTINE encode_date(y, m, d, date_code) fidinam4.f90:END SUBROUTINE encode_date fidinam4.f90:SUBROUTINE encode_station(mpc_code, our_code) fidinam4.f90:END SUBROUTINE encode_station fidinam4.f90:SUBROUTINE decode_number (number_code, number) fidinam4.f90:END SUBROUTINE decode_number fidinam4.f90:SUBROUTINE decode_date(date_code, y, m, d) fidinam4.f90:END SUBROUTINE decode_date fidinam4.f90:SUBROUTINE decode_date_mjd(date_code, tjm) fidinam4.f90:END SUBROUTINE decode_date_mjd fidinam4.f90:SUBROUTINE decode_mjd(date_code, tjm) fidinam4.f90:END SUBROUTINE decode_mjd fidinam4.f90:SUBROUTINE decode_station(station_code, station_mpc) fidinam4.f90:END SUBROUTINE decode_station fidinam4.f90:SUBROUTINE base_10_to_64(b_10, b_64) fidinam4.f90:END SUBROUTINE base_10_to_64 fidinam4.f90:SUBROUTINE base_64_to_10(b_64, b_10) fidinam4.f90:END SUBROUTINE base_64_to_10 fidinam4.f90:SUBROUTINE b64_char_value(char, value) fidinam4.f90:END SUBROUTINE b64_char_value fidinam4.f90:FUNCTION fb64_char_value(char) fidinam4.f90:END FUNCTION fb64_char_value file_oper.f90:! ===========MODULE FILE_OPER===================== file_oper.f90:MODULE file_oper file_oper.f90:END MODULE file_oper file_oper.f90:! CONTAINS file_oper.f90:! SUBROUTINES file_oper.f90:SUBROUTINE filopn(iun,name,status) file_oper.f90:END SUBROUTINE filopn file_oper.f90:SUBROUTINE waste_time(n) file_oper.f90:END SUBROUTINE waste_time file_oper.f90:SUBROUTINE filclo(iun,status) file_oper.f90:END SUBROUTINE filclo file_oper.f90:SUBROUTINE filass(iun,name) file_oper.f90:END SUBROUTINE filass file_oper.f90:SUBROUTINE filopl(iun,name) file_oper.f90:END SUBROUTINE filopl file_oper.f90:SUBROUTINE libini file_oper.f90:END SUBROUTINE libini file_oper.f90:SUBROUTINE filopf(iun,name,found) file_oper.f90:END SUBROUTINE filopf file_oper.f90:SUBROUTINE dlifex(file) file_oper.f90:END SUBROUTINE dlifex fund_const.f90:! ==================MODULE fund_const======================== fund_const.f90:MODULE fund_const fund_const.f90:END MODULE fund_const header_input.f90:! ===================MODULE header_input============================ header_input.f90:! CONTAINS: header_input.f90:! SUBROUTINES header_input.f90: SUBROUTINE rdfnam(unit,file,nr) header_input.f90: END SUBROUTINE rdfnam header_input.f90: SUBROUTINE rdfcha(unit,key,reqrd,c,found,kr) header_input.f90: END SUBROUTINE rdfcha header_input.f90: SUBROUTINE rdfint(unit,key,reqrd,k,found,kr) header_input.f90: END SUBROUTINE rdfint header_input.f90: SUBROUTINE rdflog(unit,key,reqrd,flag,found,kr) header_input.f90: END SUBROUTINE rdflog header_input.f90: SUBROUTINE rdfrea(unit,key,reqrd,v,found,kr) header_input.f90: END SUBROUTINE rdfrea header_input.f90: SUBROUTINE rdftim(unit,key,reqrd,timstr,mjd,sec,scale,found,kr) header_input.f90: END SUBROUTINE rdftim header_input.f90: SUBROUTINE rdfref(unit,key,reqrd,rsys,epoch,found,kr) header_input.f90: END SUBROUTINE rdfref header_input.f90: SUBROUTINE splkvc(rec,key,val,comm,skip,end) header_input.f90: END SUBROUTINE splkvc header_input.f90: SUBROUTINE chkfln(na,nx,name,kr,file) header_input.f90: END SUBROUTINE chkfln header_input.f90: SUBROUTINE getrsc(unit,rec,nr,end) header_input.f90: END SUBROUTINE getrsc header_input.f90: SUBROUTINE sv2int(cat,key,v,ivk,reqrd,found,fail1,fail) header_input.f90: END SUBROUTINE sv2int header_input.f90:SUBROUTINE initopt(progna0,run0,suffix) header_input.f90:END SUBROUTINE initopt header_input.f90:SUBROUTINE input_cha_opt(progna,nameopt,optval,ireq,found,comment,iunout) header_input.f90:END SUBROUTINE input_cha_opt header_input.f90:SUBROUTINE input_rea_opt(progna,nameopt,optval,ireq,found,comment,iunout) header_input.f90:END SUBROUTINE input_rea_opt header_input.f90:SUBROUTINE input_int_opt(progna,nameopt,optval,ireq,found,comment,iunout) header_input.f90:END SUBROUTINE input_int_opt header_input.f90:SUBROUTINE input_log_opt(progna,nameopt,optval,ireq,found,comment,iunout) header_input.f90:END SUBROUTINE input_log_opt header_input.f90: SUBROUTINE trivopt(progna,run,iun20) header_input.f90: END SUBROUTINE trivopt healpix_types.f90:MODULE healpix_types healpix_types.f90:END MODULE healpix_types iers_ser.f90:! =======MODULE iers_ser=========================== iers_ser.f90:! CONTAINS iers_ser.f90:! SUBROUTINES iers_ser.f90:! HEADERS and MODULES iers_ser.f90:MODULE iers_ser iers_ser.f90:CONTAINS iers_ser.f90: SUBROUTINE delthp(mjde,sece,dt,dt1,dt2,nder) iers_ser.f90: END SUBROUTINE delthp iers_ser.f90: SUBROUTINE diurot(mjde,sece,rot,rot1,rot2,nder) iers_ser.f90: END SUBROUTINE diurot iers_ser.f90: SUBROUTINE dut1r(tjme,du,dud,dudd,ntder) iers_ser.f90: END SUBROUTINE dut1r iers_ser.f90: SUBROUTINE dut1s(tjme,du,dud,dudd,ntder) iers_ser.f90: END SUBROUTINE dut1s iers_ser.f90: SUBROUTINE equeqd(tjme,eqeq,eqeq1,eqeq2,nder) iers_ser.f90: END SUBROUTINE equeqd iers_ser.f90: SUBROUTINE gmsnom(mjd,sec,gmst,gmstd1) iers_ser.f90: END SUBROUTINE gmsnom iers_ser.f90: SUBROUTINE gmstd(mjdu,secu,gmst,gmstd1,gmstd2,nder) iers_ser.f90: END SUBROUTINE gmstd iers_ser.f90: SUBROUTINE ierini iers_ser.f90: END SUBROUTINE ierini iers_ser.f90: SUBROUTINE iersts(tjme,eop,eopd,eopdd,ntder) iers_ser.f90: END SUBROUTINE iersts iers_ser.f90: SUBROUTINE nutarg(tjme,arg,argd,argdd,ntder) iers_ser.f90: END SUBROUTINE nutarg iers_ser.f90: SUBROUTINE nutnd(tjme,dpsi,deps,dpsi1,deps1,dpsi2,deps2,nder) iers_ser.f90: END SUBROUTINE nutnd iers_ser.f90: SUBROUTINE nutwhr(tjme,dpsi,deps,dpsi1,deps1,dpsi2,deps2,nder) iers_ser.f90: END SUBROUTINE nutwhr iers_ser.f90: SUBROUTINE obleqd(tjme,obl,obl1,obl2,nder) iers_ser.f90: END SUBROUTINE obleqd iers_ser.f90: SUBROUTINE precd(tjme,rot,rot1,rot2,nder) iers_ser.f90: END SUBROUTINE precd iers_ser.f90: SUBROUTINE rdbula(file,mjd2,tiers,xiers,niers,niersx,isamp,npt, & iers_ser.f90: CONTAINS iers_ser.f90: LOGICAL FUNCTION isbadr(rec) iers_ser.f90: END FUNCTION isbadr iers_ser.f90: END SUBROUTINE rdbula iers_ser.f90: SUBROUTINE rnutd(tjme,rot,rot1,rot2,nder) iers_ser.f90: END SUBROUTINE rnutd iers_ser.f90: SUBROUTINE rotpv(rsys1,drag1,mjd1,sec1,p1,v1, & iers_ser.f90:! SUBROUTINE ROTSYS rotates the axes, not the vectors; it gives iers_ser.f90: END SUBROUTINE rotpv iers_ser.f90: SUBROUTINE rotsys(rsys1,mjde1,sece1,rsys2,mjde2,sece2, & iers_ser.f90: END SUBROUTINE rotsys iers_ser.f90: SUBROUTINE xypol(tjme,xpol,x1pol,x2pol,nder) iers_ser.f90: END SUBROUTINE xypol iers_ser.f90: SUBROUTINE pd1mat(r1,r1d,r2,r2d) iers_ser.f90: END SUBROUTINE pd1mat iers_ser.f90: SUBROUTINE pd2mat(r1,r1d,r1dd,r2,r2d,r2dd) iers_ser.f90: END SUBROUTINE pd2mat iers_ser.f90:! definition, see SUBROUTINE ROTMT) is computed according to the formula iers_ser.f90: SUBROUTINE rotmt1(a,r,k,adot) iers_ser.f90: END SUBROUTINE rotmt1 iers_ser.f90:! definition, see SUBROUTINE ROTMT) is computed according to the formula iers_ser.f90: SUBROUTINE rotmt2(a,r,k,adot,addot) iers_ser.f90: END SUBROUTINE rotmt2 iers_ser.f90:END MODULE iers_ser io_elems.f90:! MODULE io_elems io_elems.f90:MODULE io_elems io_elems.f90:END MODULE io_elems io_elems.f90:SUBROUTINE rdelem(unit,objnam,nobj,infils,nfil,deforb,defcn, & io_elems.f90:END SUBROUTINE rdelem io_elems.f90:SUBROUTINE oefdet(unit,filnam,form) io_elems.f90: END SUBROUTINE oefdet io_elems.f90:SUBROUTINE rdast2(unit,filnam,objnam,nobj,deforb,defcn, & io_elems.f90:END SUBROUTINE rdast2 io_elems.f90:SUBROUTINE rdmpca(unit,filnam,objnam,nobj,deforb,defcn, & io_elems.f90:END SUBROUTINE rdmpca io_elems.f90:SUBROUTINE rdmpca3(unit,filnam,objnam,nobjx,nobj,defcn, & io_elems.f90:END SUBROUTINE rdmpca3 io_elems.f90:SUBROUTINE rdoef(uniin,file,objnam,nobj,deforb,defcn,eltype,telem,& io_elems.f90: END SUBROUTINE rdoef io_elems.f90: SUBROUTINE oporbf(file,inunit) io_elems.f90: END SUBROUTINE oporbf io_elems.f90: SUBROUTINE clorbf io_elems.f90: END SUBROUTINE clorbf io_elems.f90: SUBROUTINE rdorb(name,elem,eltype,t0,cove,defcov,nore,defnor, & io_elems.f90:END SUBROUTINE rdorb io_elems.f90:SUBROUTINE wro1lh(unit,rsys,epoch,eltype) io_elems.f90:END SUBROUTINE wro1lh io_elems.f90:SUBROUTINE wro1lr(unit,name,elem,eltype,t0,h,g) io_elems.f90:END SUBROUTINE wro1lr io_elems.f90:SUBROUTINE outele(unit,elem,eltype,t0,label,multi,stdout) io_elems.f90:END SUBROUTINE outele io_elems.f90:SUBROUTINE wromlh(unit,rsys,epoch) io_elems.f90:END SUBROUTINE wromlh io_elems.f90:SUBROUTINE mpcdat(pdate,tjm,error) io_elems.f90:END SUBROUTINE mpcdat io_elems.f90:SUBROUTINE fixcnm(defcov,defnor,defcn,cove,nore) io_elems.f90:END SUBROUTINE fixcnm iorwo_old.f90: SUBROUTINE wrirwo(file,objid,type,tech,tutm,obscod, & iorwo_old.f90: END SUBROUTINE wrirwo iorwo_old.f90: SUBROUTINE rearwo(file,objid,iobs,tau,tutm,obscod, & iorwo_old.f90: END SUBROUTINE rearwo jpl_ephem.f90:! LIBRARY CONTAINS ROUTINES jpl_ephem.f90:! MODULES and HEADERS math_lib.f90:! MODULES: fund_const.o math_lib.f90:DOUBLE PRECISION FUNCTION vsize(x) math_lib.f90:END FUNCTION vsize math_lib.f90:SUBROUTINE prodmv(y,a,x) math_lib.f90: END SUBROUTINE prodmv math_lib.f90:SUBROUTINE prodmm(a,b,c) math_lib.f90:END SUBROUTINE prodmm math_lib.f90:SUBROUTINE trsp3(r) math_lib.f90:END SUBROUTINE trsp3 math_lib.f90: SUBROUTINE mtp_ref(tpno,dx,v3,vt3) math_lib.f90: END SUBROUTINE mtp_ref math_lib.f90:DOUBLE PRECISION FUNCTION snorm(v,a,n,nnx) math_lib.f90:END FUNCTION snorm math_lib.f90:DOUBLE PRECISION FUNCTION snormd(v,a,n,nused) math_lib.f90:END FUNCTION snormd math_lib.f90:SUBROUTINE convertcov(nd,g0,derpar,gk) math_lib.f90:END SUBROUTINE convertcov math_lib.f90:SUBROUTINE convertcovdp(nd,g0,derpar,gk) math_lib.f90:END SUBROUTINE convertcovdp math_lib.f90:SUBROUTINE convertnor(nd,c0,derpar,ck) math_lib.f90:END SUBROUTINE convertnor math_lib.f90:SUBROUTINE convertnordp(nd,c0,derpar,ck) math_lib.f90:END SUBROUTINE convertnordp math_lib.f90:SUBROUTINE norprsdp(nor1,jac,nd,nor2,error) math_lib.f90:END SUBROUTINE norprsdp math_lib.f90:SUBROUTINE norprs(nor1,jac,nd,nor2,error) math_lib.f90:END SUBROUTINE norprs math_lib.f90: END SUBROUTINE linfi3 math_lib.f90: SUBROUTINE cubic_fit(x,y,sy,m,ntime,g4,s4,rms_4,ising) math_lib.f90: END SUBROUTINE cubic_fit math_lib.f90: SUBROUTINE quadratic_fit(x,y,sy,m,ntime,g2,g3,s2,s3,rms_2,rms_3,ising) math_lib.f90: END SUBROUTINE quadratic_fit math_lib.f90:SUBROUTINE heapsort(a,n,ind) math_lib.f90:END SUBROUTINE heapsort math_lib.f90:SUBROUTINE heapsorti(a,n,ind) math_lib.f90:END SUBROUTINE heapsorti name_rules.f90:MODULE name_rules name_rules.f90:CONTAINS name_rules.f90: LOGICAL FUNCTION appears(secn,sec_nam,nsec) name_rules.f90: END FUNCTION appears name_rules.f90:SUBROUTINE fullnamparse(fullname,srt,nam0,name,nid,nvir,ierror) name_rules.f90:END SUBROUTINE fullnamparse name_rules.f90:SUBROUTINE heapsortname(a,times,n,ind) name_rules.f90:END SUBROUTINE heapsortname name_rules.f90:LOGICAL FUNCTION namless(nama,tima,namb,timb) name_rules.f90:END FUNCTION namless name_rules.f90:INTEGER FUNCTION numberrr(nama) name_rules.f90:END FUNCTION numberrr name_rules.f90:LOGICAL FUNCTION designatedd(nama) name_rules.f90:END FUNCTION designatedd name_rules.f90:END MODULE name_rules obs_simul.f90:SUBROUTINE obs_simul(type1,t1,tut,astnam,ids,rmssec,rmsmag,alpha,delta,hmagn,obs,obsw) obs_simul.f90:END SUBROUTINE obs_simul obsvarie.f90: SUBROUTINE iaucodnew(mpccod,iaudes,error) obsvarie.f90: END SUBROUTINE iaucodnew obsvarie.f90: SUBROUTINE iaucod(mpccod,iaudes,error) obsvarie.f90: END SUBROUTINE iaucod obsvarie.f90: SUBROUTINE iaucod2(mpccod,iaudes,error) obsvarie.f90: END SUBROUTINE iaucod2 obsvarie.f90:INTEGER FUNCTION nights(m,obs,obsw) obsvarie.f90:END FUNCTION nights obsvarie.f90:SUBROUTINE mpcpds(iauco,mpccod,error) obsvarie.f90:END SUBROUTINE mpcpds obsvarie.f90:SUBROUTINE obssta(iunrep,name0,name1,tut,typ,m,nig,change) obsvarie.f90:END SUBROUTINE obssta obsvarie.f90:INTEGER FUNCTION quality(arc,m,nig,minoss) obsvarie.f90:END FUNCTION quality option_input.f90:! =======MODULE option_input======================================== option_input.f90:MODULE option_input option_input.f90:END MODULE option_input option_input.f90:! CONTAINS option_input.f90:SUBROUTINE namini option_input.f90:END SUBROUTINE namini option_input.f90:SUBROUTINE rdnam(iun) option_input.f90:END SUBROUTINE rdnam option_input.f90:SUBROUTINE rdnam1(iun) option_input.f90:END SUBROUTINE rdnam1 option_input.f90:SUBROUTINE rdnam2(iun) option_input.f90:END SUBROUTINE rdnam2 option_input.f90:SUBROUTINE rdnam3(iun) option_input.f90:END SUBROUTINE rdnam3 option_input.f90:SUBROUTINE rdklst(file) option_input.f90:END SUBROUTINE rdklst option_input.f90:SUBROUTINE rdkls1(file) option_input.f90:END SUBROUTINE rdkls1 option_input.f90:SUBROUTINE chkkey option_input.f90:END SUBROUTINE chkkey option_input.f90:SUBROUTINE rdncha(cat,key,v,reqrd,found,fail1,fail) option_input.f90:END SUBROUTINE rdncha option_input.f90:SUBROUTINE rdnint(cat,key,v,reqrd,found,fail1,fail) option_input.f90:END SUBROUTINE rdnint option_input.f90:SUBROUTINE rdnlog(cat,key,v,reqrd,found,fail1,fail) option_input.f90:END SUBROUTINE rdnlog option_input.f90:SUBROUTINE rdnrea(cat,key,v,reqrd,found,fail1,fail) option_input.f90:END SUBROUTINE rdnrea option_input.f90:SUBROUTINE rdntim(cat,key,timstr,mjd,sec,scale, & option_input.f90:END SUBROUTINE rdntim option_input.f90:SUBROUTINE rdnref(cat,key,rsys,epoch,reqrd,found,fail1,fail) option_input.f90:END SUBROUTINE rdnref option_input.f90: SUBROUTINE rdvint(cat,key,v,n,reqrd,found,fail1,fail) option_input.f90: SUBROUTINE rdvrea(cat,key,v,n,reqrd,found,fail1,fail) option_input.f90: SUBROUTINE rdvcha(cat,key,v,n,reqrd,found,fail1,fail) option_input.f90: SUBROUTINE rdmint(cat,key,v,n,nx,namnx,reqrd,found,fail1,fail) option_input.f90: SUBROUTINE rdmrea(cat,key,v,n,nx,namnx,reqrd,found,fail1,fail) option_input.f90: SUBROUTINE rdmcha(cat,key,v,n,nx,namnx,reqrd,found,fail1,fail) option_input.f90: SUBROUTINE getkv(key,val,ktyp,file,kr,found) option_input.f90:SUBROUTINE chkpdf(na,nx,name) option_input.f90:END SUBROUTINE chkpdf orb_els.f90:! CONTAINS orb_els.f90:! SUBROUTINES orb_els.f90:! HEADERS and MODULES orb_els.f90: END SUBROUTINE coocha orb_els.f90: END SUBROUTINE cooder orb_els.f90: END SUBROUTINE prop2b orb_els.f90: END SUBROUTINE ekensd orb_els.f90: SUBROUTINE kepcar(ek,gm,ivel,x) orb_els.f90: END SUBROUTINE kepcar output_control.f90:MODULE output_control output_control.f90:END MODULE output_control planet_masses.f90:MODULE planet_masses planet_masses.f90:END MODULE planet_masses pol_zeros.f90:! the name of SUBROUTINE START into SUBROUTINE PZSTART, in order to pol_zeros.f90:!********** SUBROUTINES AND FUNCTIONS ********** pol_zeros.f90:!********************** SUBROUTINE POLZEROS **************************** pol_zeros.f90: SUBROUTINE POLZEROS (N, POLY, EPS, BIG, SMALL, NITMAX, & pol_zeros.f90:! SUBROUTINE NEWTON pol_zeros.f90: SUBROUTINE NEWTON(N,POLY,APOLY,APOLYR,Z,SMALL,RADIUS,CORR,AGAIN) pol_zeros.f90:! SUBROUTINE ABERTH pol_zeros.f90: SUBROUTINE ABERTH(N,J,ROOT,ABCORR) pol_zeros.f90:! SUBROUTINE START pol_zeros.f90: SUBROUTINE PZSTART(N,A,Y,RADIUS,NZ,SMALL,BIG,H) pol_zeros.f90:! SUBROUTINE CNVEX pol_zeros.f90: SUBROUTINE CNVEX(N,A,H) pol_zeros.f90:! SUBROUTINE LEFT pol_zeros.f90: SUBROUTINE LEFT(N,H,I,IL) pol_zeros.f90:! SUBROUTINE RIGHT pol_zeros.f90: SUBROUTINE RIGHT(N,H,I,IR) pol_zeros.f90:! SUBROUTINE CMERGE pol_zeros.f90: SUBROUTINE CMERGE(N,A,I,M,H) pol_zeros.f90:! FUNCTION CTEST pol_zeros.f90: FUNCTION CTEST(N,A,IL,I,IR) read_ephem.f90:SUBROUTINE earth(t0,eqp) read_ephem.f90:END SUBROUTINE earth read_ephem.f90:SUBROUTINE earcar(t0,xea,ifla) read_ephem.f90:END SUBROUTINE earcar read_ephem.f90:SUBROUTINE rdbep(t,nb,id,x,v) read_ephem.f90:END SUBROUTINE rdbep read_ephem.f90:SUBROUTINE jpllis(names,n,gmp,id,fail) read_ephem.f90:END SUBROUTINE jpllis read_ephem.f90:SUBROUTINE mooncar(t0,xmoon,ifla) read_ephem.f90:END SUBROUTINE mooncar read_ephem.f90:SUBROUTINE sunmoon_car(t0,equ,xsun,xmoon) read_ephem.f90:END SUBROUTINE sunmoon_car reference_systems.f90:! MODULE reference_systems reference_systems.f90:! SUBROUTINE posobs(tdt,obscod,n,x) reference_systems.f90:! SUBROUTINE ch2ref(string,rsys,epoch,error) reference_systems.f90:! SUBROUTINE pvobs(t,idsta,dx,dv) reference_systems.f90:! SUBROUTINE pvobs3(t,pos,dx,dv) reference_systems.f90:! SUBROUTINE rotpn(rot,rsys1,epoch1,date1,rsys2,epoch2,date2) reference_systems.f90:! SUBROUTINE rnut80(tjm,rnut) reference_systems.f90:! SUBROUTINE nutn80(tjm,dpsi,deps) reference_systems.f90:! SUBROUTINE chkref(rsys,epoch,error) reference_systems.f90:MODULE reference_systems reference_systems.f90:! SUBROUTINEs reference_systems.f90:CONTAINS reference_systems.f90:SUBROUTINE observer_position(tdt,position,velocity,obscode,bfpos,precision) reference_systems.f90:END SUBROUTINE observer_position reference_systems.f90:! ===========MODULE ref_system===================== reference_systems.f90:! CONTAINS reference_systems.f90:! SUBROUTINES reference_systems.f90:SUBROUTINE posobs(tdt,obscod,n,x) reference_systems.f90:END SUBROUTINE posobs reference_systems.f90:SUBROUTINE ch2ref(string,rsys,epoch,error) reference_systems.f90:END SUBROUTINE ch2ref reference_systems.f90:SUBROUTINE pvobs(t,idsta,dx,dv) reference_systems.f90:END SUBROUTINE pvobs reference_systems.f90:SUBROUTINE obs2ecl(t,idsta,xin,xout) reference_systems.f90:END SUBROUTINE obs2ecl reference_systems.f90:SUBROUTINE pvobs3(t,pos,dx,dv) reference_systems.f90:END SUBROUTINE pvobs3 reference_systems.f90:SUBROUTINE rotpn(rot,rsys1,epoch1,date1,rsys2,epoch2,date2) reference_systems.f90:END SUBROUTINE rotpn reference_systems.f90: END FUNCTION reference_systems.f90: SUBROUTINE rnut80(tjm,rnut) reference_systems.f90: END SUBROUTINE reference_systems.f90: END SUBROUTINE reference_systems.f90:SUBROUTINE nutn80(tjm,dpsi,deps) reference_systems.f90:END SUBROUTINE nutn80 reference_systems.f90:END FUNCTION equequ reference_systems.f90:END FUNCTION gmst reference_systems.f90:SUBROUTINE chkref(rsys,epoch,error) reference_systems.f90:END SUBROUTINE chkref reference_systems.f90:END MODULE reference_systems station_coordinates.f90:! MODULE station_coordinates station_coordinates.f90:! SUBROUTINE geodetic_to_cartesian station_coordinates.f90:! SUBROUTINE cartesian_to_geodetic station_coordinates.f90:MODULE station_coordinates station_coordinates.f90:! SUBROUTINEs station_coordinates.f90:CONTAINS station_coordinates.f90:SUBROUTINE geodetic_to_cartesian(longitude,latitude,altitude,x) station_coordinates.f90:END SUBROUTINE geodetic_to_cartesian station_coordinates.f90:SUBROUTINE cartesian_to_geodetic(x,longitude,latitude,altitude,vertical) station_coordinates.f90:END SUBROUTINE cartesian_to_geodetic station_coordinates.f90:SUBROUTINE obscoo(idobs,xbf,name, shiftst) station_coordinates.f90:END SUBROUTINE obscoo station_coordinates.f90: SUBROUTINE statcode(obsstr,iobs) station_coordinates.f90: END SUBROUTINE statcode station_coordinates.f90: SUBROUTINE codestat(iobs,obsstr) station_coordinates.f90: END SUBROUTINE codestat station_coordinates.f90:END MODULE station_coordinates time_scales.f90:! ==============MODULE time_scales=================== time_scales.f90:! CONTAINS time_scales.f90:! SUBROUTINES time_scales.f90: SUBROUTINE ch2tim(string,mjd,sec,scale,error) time_scales.f90: INTEGER FUNCTION intmon(chmon) time_scales.f90: DOUBLE PRECISION FUNCTION tjm1(iday,month,iyear,h) time_scales.f90: SUBROUTINE timnf(mjd,sec,scale) time_scales.f90: INTEGER FUNCTION itaiut(mjdc) time_scales.f90: SUBROUTINE chktsc(scale,error) time_scales.f90: DOUBLE PRECISION FUNCTION deltt(tjm) time_scales.f90: SUBROUTINE mjddat(tjm,iday,imonth,iyear,hour) time_scales.f90: CHARACTER*3 FUNCTION chmon(intmon) time_scales.f90: DOUBLE PRECISION FUNCTION bessep(tjme) time_scales.f90: INTEGER FUNCTION chmo2i(chm) time_scales.f90: SUBROUTINE TIMES (TDBJD,TTJD,SECDIF) time_scales.f90:SUBROUTINE calendwri(tcl,calend) time_scales.f90:END SUBROUTINE calendwri util_suit.f90:MODULE util_suit util_suit.f90:CONTAINS util_suit.f90:SUBROUTINE menu(ifl,menunam,nopt,s, & util_suit.f90:END SUBROUTINE menu util_suit.f90:SUBROUTINE filcat(iunit) util_suit.f90:END SUBROUTINE filcat util_suit.f90:SUBROUTINE write_err(name0,iunout,string) util_suit.f90:END SUBROUTINE write_err util_suit.f90:SUBROUTINE final_rep(i,ix,run,le,iunout,name0) util_suit.f90:END SUBROUTINE final_rep very_short_arc.f90:MODULE very_short_arc very_short_arc.f90:CONTAINS very_short_arc.f90:SUBROUTINE vsa_read(iunobs,error_model,timestep,shift,v,obscodi,qua, & very_short_arc.f90:END SUBROUTINE vsa_read very_short_arc.f90:SUBROUTINE in_ons(iunobs,error_model,name0,obs0& very_short_arc.f90:END SUBROUTINE in_ons very_short_arc.f90:SUBROUTINE in_ons_rwo(iunobs,iundup,error_model,obsdir,name0,obs0& very_short_arc.f90:END SUBROUTINE in_ons_rwo very_short_arc.f90:END MODULE very_short_arc