Conversion of standardized ReadMe file for
file /./ftp/cats/J/MNRAS/476/2117 into FORTRAN code for loading all data files into arrays.
Note that special values are assigned to unknown or unspecified
numbers (also called NULL numbers);
when necessary, the coordinate components making up the right ascension
and declination are converted into floating-point numbers
representing these angles in degrees.
program load_ReadMe
C=============================================================================
C F77-compliant program generated by readme2f_1.81 (2015-09-23), on 2024-Apr-20
C=============================================================================
* This code was generated from the ReadMe file documenting a catalogue
* according to the "Standard for Documentation of Astronomical Catalogues"
* currently in use by the Astronomical Data Centers (CDS, ADC, A&A)
* (see full documentation at URL http://vizier.u-strasbg.fr/doc/catstd.htx)
* Please report problems or questions to
C=============================================================================
implicit none
* Unspecified or NULL values, generally corresponding to blank columns,
* are assigned one of the following special values:
* rNULL__ for unknown or NULL floating-point values
* iNULL__ for unknown or NULL integer values
real*4 rNULL__
integer*4 iNULL__
parameter (rNULL__=--2147483648.) ! NULL real number
parameter (iNULL__=(-2147483647-1)) ! NULL int number
integer idig ! testing NULL number
C=============================================================================
Cat. J/MNRAS/476/2117 Outliers and similarity in APOGEE (Reis+, 2018)
*================================================================================
*Detecting outliers and learning complex structures with large spectroscopic
*surveys - a case study with APOGEE stars.
* Reis I., Poznanski D., Baron D., Zasowski G., Shahaf S.
* <Mon. Not. R. Astron. Soc. 476, 2117 (2018)>
* =2018MNRAS.476.2117R (SIMBAD/NED BibCode)
C=============================================================================
C Internal variables
integer*4 i__
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'apogeenn.dat' ! Nearest neighbors APOGEE IDs
integer*4 nr__
parameter (nr__=183232) ! Number of records
character*1899 ar__ ! Full-size record
character*18 Target (nr__) ! Target name
character*18 NN1 (nr__) ! 1st nearest neighbor of Target object
character*18 NN2 (nr__) ! 2sd nearest neighbor of Target object
character*18 NN3 (nr__) ! 3rd nearest neighbor of Target object
character*18 NN4 (nr__) ! 4th nearest neighbor of Target object
character*18 NN5 (nr__) ! 5th nearest neighbor of Target object
character*18 NN6 (nr__) ! 6th nearest neighbor of Target object
character*18 NN7 (nr__) ! 7th nearest neighbor of Target object
character*18 NN8 (nr__) ! 8th nearest neighbor of Target object
character*18 NN9 (nr__) ! 9th nearest neighbor of Target object
character*18 NN10 (nr__) ! 10th nearest neighbor of Target object
character*18 NN11 (nr__) ! 11th nearest neighbor of Target object
character*18 NN12 (nr__) ! 12th nearest neighbor of Target object
character*18 NN13 (nr__) ! 13th nearest neighbor of Target object
character*18 NN14 (nr__) ! 14th nearest neighbor of Target object
character*18 NN15 (nr__) ! 15th nearest neighbor of Target object
character*18 NN16 (nr__) ! 16th nearest neighbor of Target object
character*18 NN17 (nr__) ! 17th nearest neighbor of Target object
character*18 NN18 (nr__) ! 18th nearest neighbor of Target object
character*18 NN19 (nr__) ! 19th nearest neighbor of Target object
character*18 NN20 (nr__) ! 20th nearest neighbor of Target object
character*18 NN21 (nr__) ! 21th nearest neighbor of Target object
character*18 NN22 (nr__) ! 22th nearest neighbor of Target object
character*18 NN23 (nr__) ! 23th nearest neighbor of Target object
character*18 NN24 (nr__) ! 24th nearest neighbor of Target object
character*18 NN25 (nr__) ! 25th nearest neighbor of Target object
character*18 NN26 (nr__) ! 26th nearest neighbor of Target object
character*18 NN27 (nr__) ! 27th nearest neighbor of Target object
character*18 NN28 (nr__) ! 28th nearest neighbor of Target object
character*18 NN29 (nr__) ! 29th nearest neighbor of Target object
character*18 NN30 (nr__) ! 30th nearest neighbor of Target object
character*18 NN31 (nr__) ! 31th nearest neighbor of Target object
character*18 NN32 (nr__) ! 32th nearest neighbor of Target object
character*18 NN33 (nr__) ! 33th nearest neighbor of Target object
character*18 NN34 (nr__) ! 34th nearest neighbor of Target object
character*18 NN35 (nr__) ! 35th nearest neighbor of Target object
character*18 NN36 (nr__) ! 36th nearest neighbor of Target object
character*18 NN37 (nr__) ! 37th nearest neighbor of Target object
character*18 NN38 (nr__) ! 38th nearest neighbor of Target object
character*18 NN39 (nr__) ! 39th nearest neighbor of Target object
character*18 NN40 (nr__) ! 40th nearest neighbor of Target object
character*18 NN41 (nr__) ! 41th nearest neighbor of Target object
character*18 NN42 (nr__) ! 42th nearest neighbor of Target object
character*18 NN43 (nr__) ! 43th nearest neighbor of Target object
character*18 NN44 (nr__) ! 44th nearest neighbor of Target object
character*18 NN45 (nr__) ! 45th nearest neighbor of Target object
character*18 NN46 (nr__) ! 46th nearest neighbor of Target object
character*18 NN47 (nr__) ! 47th nearest neighbor of Target object
character*18 NN48 (nr__) ! 48th nearest neighbor of Target object
character*18 NN49 (nr__) ! 49th nearest neighbor of Target object
character*18 NN50 (nr__) ! 50th nearest neighbor of Target object
character*18 NN51 (nr__) ! 51th nearest neighbor of Target object
character*18 NN52 (nr__) ! 52th nearest neighbor of Target object
character*18 NN53 (nr__) ! 53th nearest neighbor of Target object
character*18 NN54 (nr__) ! 54th nearest neighbor of Target object
character*18 NN55 (nr__) ! 55th nearest neighbor of Target object
character*18 NN56 (nr__) ! 56th nearest neighbor of Target object
character*18 NN57 (nr__) ! 57th nearest neighbor of Target object
character*18 NN58 (nr__) ! 58th nearest neighbor of Target object
character*18 NN59 (nr__) ! 59th nearest neighbor of Target object
character*18 NN60 (nr__) ! 60th nearest neighbor of Target object
character*18 NN61 (nr__) ! 61th nearest neighbor of Target object
character*18 NN62 (nr__) ! 62th nearest neighbor of Target object
character*18 NN63 (nr__) ! 63th nearest neighbor of Target object
character*18 NN64 (nr__) ! 64th nearest neighbor of Target object
character*18 NN65 (nr__) ! 65th nearest neighbor of Target object
character*18 NN66 (nr__) ! 66th nearest neighbor of Target object
character*18 NN67 (nr__) ! 67th nearest neighbor of Target object
character*18 NN68 (nr__) ! 68th nearest neighbor of Target object
character*18 NN69 (nr__) ! 69th nearest neighbor of Target object
character*18 NN70 (nr__) ! 70th nearest neighbor of Target object
character*18 NN71 (nr__) ! 71th nearest neighbor of Target object
character*18 NN72 (nr__) ! 72th nearest neighbor of Target object
character*18 NN73 (nr__) ! 73th nearest neighbor of Target object
character*18 NN74 (nr__) ! 74th nearest neighbor of Target object
character*18 NN75 (nr__) ! 75th nearest neighbor of Target object
character*18 NN76 (nr__) ! 76th nearest neighbor of Target object
character*18 NN77 (nr__) ! 77th nearest neighbor of Target object
character*18 NN78 (nr__) ! 78th nearest neighbor of Target object
character*18 NN79 (nr__) ! 79th nearest neighbor of Target object
character*18 NN80 (nr__) ! 80th nearest neighbor of Target object
character*18 NN81 (nr__) ! 81th nearest neighbor of Target object
character*18 NN82 (nr__) ! 82th nearest neighbor of Target object
character*18 NN83 (nr__) ! 83th nearest neighbor of Target object
character*18 NN84 (nr__) ! 84th nearest neighbor of Target object
character*18 NN85 (nr__) ! 85th nearest neighbor of Target object
character*18 NN86 (nr__) ! 86th nearest neighbor of Target object
character*18 NN87 (nr__) ! 87th nearest neighbor of Target object
character*18 NN88 (nr__) ! 88th nearest neighbor of Target object
character*18 NN89 (nr__) ! 89th nearest neighbor of Target object
character*18 NN90 (nr__) ! 90th nearest neighbor of Target object
character*18 NN91 (nr__) ! 91th nearest neighbor of Target object
character*18 NN92 (nr__) ! 92th nearest neighbor of Target object
character*18 NN93 (nr__) ! 93th nearest neighbor of Target object
character*18 NN94 (nr__) ! 94th nearest neighbor of Target object
character*18 NN95 (nr__) ! 95th nearest neighbor of Target object
character*18 NN96 (nr__) ! 96th nearest neighbor of Target object
character*18 NN97 (nr__) ! 97th nearest neighbor of Target object
character*18 NN98 (nr__) ! 98th nearest neighbor of Target object
character*18 NN99 (nr__) ! 99th nearest neighbor of Target object
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'distance.dat' ! Distances to nearest neighbors
integer*4 nr__1
parameter (nr__1=183232) ! Number of records
character*1602 ar__1 ! Full-size record
character*18 Target_1 (nr__1) ! Target name
real*8 Dist1 (nr__1) ! Distance matrix to 1st nearest neighbor
* of Target
real*8 Dist2 (nr__1) ! Distance matrix to 2nd nearest neighbor
* of Target
real*8 Dist3 (nr__1) ! Distance matrix to 3rd nearest neighbor
* of Target
real*8 Dist4 (nr__1) ! Distance matrix to 4th nearest neighbor
* of Target
real*8 Dist5 (nr__1) ! Distance matrix to 5th nearest neighbor
* of Target
real*8 Dist6 (nr__1) ! Distance matrix to 6th nearest neighbor
* of Target
real*8 Dist7 (nr__1) ! Distance matrix to 7th nearest neighbor
* of Target
real*8 Dist8 (nr__1) ! Distance matrix to 8th nearest neighbor
* of Target
real*8 Dist9 (nr__1) ! Distance matrix to 9th nearest neighbor
* of Target
real*8 Dist10 (nr__1) ! Distance matrix to 10th nearest neighbor
* of Target
real*8 Dist11 (nr__1) ! Distance matrix to 11th nearest neighbor
* of Target
real*8 Dist12 (nr__1) ! Distance matrix to 12th nearest neighbor
* of Target
real*8 Dist13 (nr__1) ! Distance matrix to 13th nearest neighbor
* of Target
real*8 Dist14 (nr__1) ! Distance matrix to 14th nearest neighbor
* of Target
real*8 Dist15 (nr__1) ! Distance matrix to 15th nearest neighbor
* of Target
real*8 Dist16 (nr__1) ! Distance matrix to 16th nearest neighbor
* of Target
real*8 Dist17 (nr__1) ! Distance matrix to 17th nearest neighbor
* of Target
real*8 Dist18 (nr__1) ! Distance matrix to 18th nearest neighbor
* of Target
real*8 Dist19 (nr__1) ! Distance matrix to 19th nearest neighbor
* of Target
real*8 Dist20 (nr__1) ! Distance matrix to 20th nearest neighbor
* of Target
real*8 Dist21 (nr__1) ! Distance matrix to 21th nearest neighbor
* of Target
real*8 Dist22 (nr__1) ! Distance matrix to 22th nearest neighbor
* of Target
real*8 Dist23 (nr__1) ! Distance matrix to 23th nearest neighbor
* of Target
real*8 Dist24 (nr__1) ! Distance matrix to 24th nearest neighbor
* of Target
real*8 Dist25 (nr__1) ! Distance matrix to 25th nearest neighbor
* of Target
real*8 Dist26 (nr__1) ! Distance matrix to 26th nearest neighbor
* of Target
real*8 Dist27 (nr__1) ! Distance matrix to 27th nearest neighbor
* of Target
real*8 Dist28 (nr__1) ! Distance matrix to 28th nearest neighbor
* of Target
real*8 Dist29 (nr__1) ! Distance matrix to 29th nearest neighbor
* of Target
real*8 Dist30 (nr__1) ! Distance matrix to 30th nearest neighbor
* of Target
real*8 Dist31 (nr__1) ! Distance matrix to 31th nearest neighbor
* of Target
real*8 Dist32 (nr__1) ! Distance matrix to 32th nearest neighbor
* of Target
real*8 Dist33 (nr__1) ! Distance matrix to 33th nearest neighbor
* of Target
real*8 Dist34 (nr__1) ! Distance matrix to 34th nearest neighbor
* of Target
real*8 Dist35 (nr__1) ! Distance matrix to 35th nearest neighbor
* of Target
real*8 Dist36 (nr__1) ! Distance matrix to 36th nearest neighbor
* of Target
real*8 Dist37 (nr__1) ! Distance matrix to 37th nearest neighbor
* of Target
real*8 Dist38 (nr__1) ! Distance matrix to 38th nearest neighbor
* of Target
real*8 Dist39 (nr__1) ! Distance matrix to 39th nearest neighbor
* of Target
real*8 Dist40 (nr__1) ! Distance matrix to 40th nearest neighbor
* of Target
real*8 Dist41 (nr__1) ! Distance matrix to 41th nearest neighbor
* of Target
real*8 Dist42 (nr__1) ! Distance matrix to 42th nearest neighbor
* of Target
real*8 Dist43 (nr__1) ! Distance matrix to 43th nearest neighbor
* of Target
real*8 Dist44 (nr__1) ! Distance matrix to 44th nearest neighbor
* of Target
real*8 Dist45 (nr__1) ! Distance matrix to 45th nearest neighbor
* of Target
real*8 Dist46 (nr__1) ! Distance matrix to 46th nearest neighbor
* of Target
real*8 Dist47 (nr__1) ! Distance matrix to 47th nearest neighbor
* of Target
real*8 Dist48 (nr__1) ! Distance matrix to 48th nearest neighbor
* of Target
real*8 Dist49 (nr__1) ! Distance matrix to 49th nearest neighbor
* of Target
real*8 Dist50 (nr__1) ! Distance matrix to 50th nearest neighbor
* of Target
real*8 Dist51 (nr__1) ! Distance matrix to 51th nearest neighbor
* of Target
real*8 Dist52 (nr__1) ! Distance matrix to 52th nearest neighbor
* of Target
real*8 Dist53 (nr__1) ! Distance matrix to 53th nearest neighbor
* of Target
real*8 Dist54 (nr__1) ! Distance matrix to 54th nearest neighbor
* of Target
real*8 Dist55 (nr__1) ! Distance matrix to 55th nearest neighbor
* of Target
real*8 Dist56 (nr__1) ! Distance matrix to 56th nearest neighbor
* of Target
real*8 Dist57 (nr__1) ! Distance matrix to 57th nearest neighbor
* of Target
real*8 Dist58 (nr__1) ! Distance matrix to 58th nearest neighbor
* of Target
real*8 Dist59 (nr__1) ! Distance matrix to 59th nearest neighbor
* of Target
real*8 Dist60 (nr__1) ! Distance matrix to 60th nearest neighbor
* of Target
real*8 Dist61 (nr__1) ! Distance matrix to 61th nearest neighbor
* of Target
real*8 Dist62 (nr__1) ! Distance matrix to 62th nearest neighbor
* of Target
real*8 Dist63 (nr__1) ! Distance matrix to 63th nearest neighbor
* of Target
real*8 Dist64 (nr__1) ! Distance matrix to 64th nearest neighbor
* of Target
real*8 Dist65 (nr__1) ! Distance matrix to 65th nearest neighbor
* of Target
real*8 Dist66 (nr__1) ! Distance matrix to 66th nearest neighbor
* of Target
real*8 Dist67 (nr__1) ! Distance matrix to 67th nearest neighbor
* of Target
real*8 Dist68 (nr__1) ! Distance matrix to 68th nearest neighbor
* of Target
real*8 Dist69 (nr__1) ! Distance matrix to 69th nearest neighbor
* of Target
real*8 Dist70 (nr__1) ! Distance matrix to 70th nearest neighbor
* of Target
real*8 Dist71 (nr__1) ! Distance matrix to 71th nearest neighbor
* of Target
real*8 Dist72 (nr__1) ! Distance matrix to 72th nearest neighbor
* of Target
real*8 Dist73 (nr__1) ! Distance matrix to 73th nearest neighbor
* of Target
real*8 Dist74 (nr__1) ! Distance matrix to 74th nearest neighbor
* of Target
real*8 Dist75 (nr__1) ! Distance matrix to 75th nearest neighbor
* of Target
real*8 Dist76 (nr__1) ! Distance matrix to 76th nearest neighbor
* of Target
real*8 Dist77 (nr__1) ! Distance matrix to 77th nearest neighbor
* of Target
real*8 Dist78 (nr__1) ! Distance matrix to 78th nearest neighbor
* of Target
real*8 Dist79 (nr__1) ! Distance matrix to 79th nearest neighbor
* of Target
real*8 Dist80 (nr__1) ! Distance matrix to 80th nearest neighbor
* of Target
real*8 Dist81 (nr__1) ! Distance matrix to 81th nearest neighbor
* of Target
real*8 Dist82 (nr__1) ! Distance matrix to 82th nearest neighbor
* of Target
real*8 Dist83 (nr__1) ! Distance matrix to 83th nearest neighbor
* of Target
real*8 Dist84 (nr__1) ! Distance matrix to 84th nearest neighbor
* of Target
real*8 Dist85 (nr__1) ! Distance matrix to 85th nearest neighbor
* of Target
real*8 Dist86 (nr__1) ! Distance matrix to 86th nearest neighbor
* of Target
real*8 Dist87 (nr__1) ! Distance matrix to 87th nearest neighbor
* of Target
real*8 Dist88 (nr__1) ! Distance matrix to 88th nearest neighbor
* of Target
real*8 Dist89 (nr__1) ! Distance matrix to 89th nearest neighbor
* of Target
real*8 Dist90 (nr__1) ! Distance matrix to 90th nearest neighbor
* of Target
real*8 Dist91 (nr__1) ! Distance matrix to 91th nearest neighbor
* of Target
real*8 Dist92 (nr__1) ! Distance matrix to 92th nearest neighbor
* of Target
real*8 Dist93 (nr__1) ! Distance matrix to 93th nearest neighbor
* of Target
real*8 Dist94 (nr__1) ! Distance matrix to 94th nearest neighbor
* of Target
real*8 Dist95 (nr__1) ! Distance matrix to 95th nearest neighbor
* of Target
real*8 Dist96 (nr__1) ! Distance matrix to 96th nearest neighbor
* of Target
real*8 Dist97 (nr__1) ! Distance matrix to 97th nearest neighbor
* of Target
real*8 Dist98 (nr__1) ! Distance matrix to 98th nearest neighbor
* of Target
real*8 Dist99 (nr__1) ! Distance matrix to 99th nearest neighbor
* of Target
c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C Declarations for 'tsnecoor.dat' ! t-SNE coordinates (map in paper)
integer*4 nr__2
parameter (nr__2=193556) ! Number of records
character*56 ar__2 ! Full-size record
character*18 Target_2 (nr__2) ! Target name
real*4 t_SNE_X (nr__2) ! t-SNE map X coordinate
real*4 t_SNE_Y (nr__2) ! t-SNE map Y coordinate
C=============================================================================
C Loading file 'apogeenn.dat' ! Nearest neighbors APOGEE IDs
C Format for file interpretation
1 format(
+ A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,
+ 1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,
+ A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,
+ 1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,
+ A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,
+ 1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,
+ A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,
+ 1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,
+ A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,
+ 1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,
+ A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,
+ 1X,A18,1X,A18,1X,A18,1X,A18,1X,A18,1X,A18)
C Effective file loading
open(unit=1,status='old',file=
+'apogeenn.dat')
write(6,*) '....Loading file: apogeenn.dat'
do i__=1,183232
read(1,'(A1899)')ar__
read(ar__,1)
+ Target(i__),NN1(i__),NN2(i__),NN3(i__),NN4(i__),NN5(i__),
+ NN6(i__),NN7(i__),NN8(i__),NN9(i__),NN10(i__),NN11(i__),
+ NN12(i__),NN13(i__),NN14(i__),NN15(i__),NN16(i__),NN17(i__),
+ NN18(i__),NN19(i__),NN20(i__),NN21(i__),NN22(i__),NN23(i__),
+ NN24(i__),NN25(i__),NN26(i__),NN27(i__),NN28(i__),NN29(i__),
+ NN30(i__),NN31(i__),NN32(i__),NN33(i__),NN34(i__),NN35(i__),
+ NN36(i__),NN37(i__),NN38(i__),NN39(i__),NN40(i__),NN41(i__),
+ NN42(i__),NN43(i__),NN44(i__),NN45(i__),NN46(i__),NN47(i__),
+ NN48(i__),NN49(i__),NN50(i__),NN51(i__),NN52(i__),NN53(i__),
+ NN54(i__),NN55(i__),NN56(i__),NN57(i__),NN58(i__),NN59(i__),
+ NN60(i__),NN61(i__),NN62(i__),NN63(i__),NN64(i__),NN65(i__),
+ NN66(i__),NN67(i__),NN68(i__),NN69(i__),NN70(i__),NN71(i__),
+ NN72(i__),NN73(i__),NN74(i__),NN75(i__),NN76(i__),NN77(i__),
+ NN78(i__),NN79(i__),NN80(i__),NN81(i__),NN82(i__),NN83(i__),
+ NN84(i__),NN85(i__),NN86(i__),NN87(i__),NN88(i__),NN89(i__),
+ NN90(i__),NN91(i__),NN92(i__),NN93(i__),NN94(i__),NN95(i__),
+ NN96(i__),NN97(i__),NN98(i__),NN99(i__)
c ..............Just test output...........
write(6,1)
+ Target(i__),NN1(i__),NN2(i__),NN3(i__),NN4(i__),NN5(i__),
+ NN6(i__),NN7(i__),NN8(i__),NN9(i__),NN10(i__),NN11(i__),
+ NN12(i__),NN13(i__),NN14(i__),NN15(i__),NN16(i__),NN17(i__),
+ NN18(i__),NN19(i__),NN20(i__),NN21(i__),NN22(i__),NN23(i__),
+ NN24(i__),NN25(i__),NN26(i__),NN27(i__),NN28(i__),NN29(i__),
+ NN30(i__),NN31(i__),NN32(i__),NN33(i__),NN34(i__),NN35(i__),
+ NN36(i__),NN37(i__),NN38(i__),NN39(i__),NN40(i__),NN41(i__),
+ NN42(i__),NN43(i__),NN44(i__),NN45(i__),NN46(i__),NN47(i__),
+ NN48(i__),NN49(i__),NN50(i__),NN51(i__),NN52(i__),NN53(i__),
+ NN54(i__),NN55(i__),NN56(i__),NN57(i__),NN58(i__),NN59(i__),
+ NN60(i__),NN61(i__),NN62(i__),NN63(i__),NN64(i__),NN65(i__),
+ NN66(i__),NN67(i__),NN68(i__),NN69(i__),NN70(i__),NN71(i__),
+ NN72(i__),NN73(i__),NN74(i__),NN75(i__),NN76(i__),NN77(i__),
+ NN78(i__),NN79(i__),NN80(i__),NN81(i__),NN82(i__),NN83(i__),
+ NN84(i__),NN85(i__),NN86(i__),NN87(i__),NN88(i__),NN89(i__),
+ NN90(i__),NN91(i__),NN92(i__),NN93(i__),NN94(i__),NN95(i__),
+ NN96(i__),NN97(i__),NN98(i__),NN99(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'distance.dat' ! Distances to nearest neighbors
C Format for file interpretation
2 format(
+ A18,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,
+ F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,
+ F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,
+ F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,
+ F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,
+ F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,
+ F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,
+ F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,
+ F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,
+ F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,
+ F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,
+ F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,
+ F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,
+ F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,
+ F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,
+ F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,F15.13,1X,
+ F15.13,1X,F15.13,1X,F15.13,1X,F15.13)
C Effective file loading
open(unit=1,status='old',file=
+'distance.dat')
write(6,*) '....Loading file: distance.dat'
do i__=1,183232
read(1,'(A1602)')ar__1
read(ar__1,2)
+ Target_1(i__),Dist1(i__),Dist2(i__),Dist3(i__),Dist4(i__),
+ Dist5(i__),Dist6(i__),Dist7(i__),Dist8(i__),Dist9(i__),
+ Dist10(i__),Dist11(i__),Dist12(i__),Dist13(i__),Dist14(i__),
+ Dist15(i__),Dist16(i__),Dist17(i__),Dist18(i__),Dist19(i__),
+ Dist20(i__),Dist21(i__),Dist22(i__),Dist23(i__),Dist24(i__),
+ Dist25(i__),Dist26(i__),Dist27(i__),Dist28(i__),Dist29(i__),
+ Dist30(i__),Dist31(i__),Dist32(i__),Dist33(i__),Dist34(i__),
+ Dist35(i__),Dist36(i__),Dist37(i__),Dist38(i__),Dist39(i__),
+ Dist40(i__),Dist41(i__),Dist42(i__),Dist43(i__),Dist44(i__),
+ Dist45(i__),Dist46(i__),Dist47(i__),Dist48(i__),Dist49(i__),
+ Dist50(i__),Dist51(i__),Dist52(i__),Dist53(i__),Dist54(i__),
+ Dist55(i__),Dist56(i__),Dist57(i__),Dist58(i__),Dist59(i__),
+ Dist60(i__),Dist61(i__),Dist62(i__),Dist63(i__),Dist64(i__),
+ Dist65(i__),Dist66(i__),Dist67(i__),Dist68(i__),Dist69(i__),
+ Dist70(i__),Dist71(i__),Dist72(i__),Dist73(i__),Dist74(i__),
+ Dist75(i__),Dist76(i__),Dist77(i__),Dist78(i__),Dist79(i__),
+ Dist80(i__),Dist81(i__),Dist82(i__),Dist83(i__),Dist84(i__),
+ Dist85(i__),Dist86(i__),Dist87(i__),Dist88(i__),Dist89(i__),
+ Dist90(i__),Dist91(i__),Dist92(i__),Dist93(i__),Dist94(i__),
+ Dist95(i__),Dist96(i__),Dist97(i__),Dist98(i__),Dist99(i__)
c ..............Just test output...........
write(6,2)
+ Target_1(i__),Dist1(i__),Dist2(i__),Dist3(i__),Dist4(i__),
+ Dist5(i__),Dist6(i__),Dist7(i__),Dist8(i__),Dist9(i__),
+ Dist10(i__),Dist11(i__),Dist12(i__),Dist13(i__),Dist14(i__),
+ Dist15(i__),Dist16(i__),Dist17(i__),Dist18(i__),Dist19(i__),
+ Dist20(i__),Dist21(i__),Dist22(i__),Dist23(i__),Dist24(i__),
+ Dist25(i__),Dist26(i__),Dist27(i__),Dist28(i__),Dist29(i__),
+ Dist30(i__),Dist31(i__),Dist32(i__),Dist33(i__),Dist34(i__),
+ Dist35(i__),Dist36(i__),Dist37(i__),Dist38(i__),Dist39(i__),
+ Dist40(i__),Dist41(i__),Dist42(i__),Dist43(i__),Dist44(i__),
+ Dist45(i__),Dist46(i__),Dist47(i__),Dist48(i__),Dist49(i__),
+ Dist50(i__),Dist51(i__),Dist52(i__),Dist53(i__),Dist54(i__),
+ Dist55(i__),Dist56(i__),Dist57(i__),Dist58(i__),Dist59(i__),
+ Dist60(i__),Dist61(i__),Dist62(i__),Dist63(i__),Dist64(i__),
+ Dist65(i__),Dist66(i__),Dist67(i__),Dist68(i__),Dist69(i__),
+ Dist70(i__),Dist71(i__),Dist72(i__),Dist73(i__),Dist74(i__),
+ Dist75(i__),Dist76(i__),Dist77(i__),Dist78(i__),Dist79(i__),
+ Dist80(i__),Dist81(i__),Dist82(i__),Dist83(i__),Dist84(i__),
+ Dist85(i__),Dist86(i__),Dist87(i__),Dist88(i__),Dist89(i__),
+ Dist90(i__),Dist91(i__),Dist92(i__),Dist93(i__),Dist94(i__),
+ Dist95(i__),Dist96(i__),Dist97(i__),Dist98(i__),Dist99(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
C Loading file 'tsnecoor.dat' ! t-SNE coordinates (map in paper)
C Format for file interpretation
3 format(A18,1X,E18.15,1X,E18.15)
C Effective file loading
open(unit=1,status='old',file=
+'tsnecoor.dat')
write(6,*) '....Loading file: tsnecoor.dat'
do i__=1,193556
read(1,'(A56)')ar__2
read(ar__2,3)Target_2(i__),t_SNE_X(i__),t_SNE_Y(i__)
c ..............Just test output...........
write(6,3)Target_2(i__),t_SNE_X(i__),t_SNE_Y(i__)
c .......End.of.Just test output...........
end do
close(1)
C=============================================================================
stop
end