PROGRAM EPSILON IMPLICIT NONE REAL :: A, B, C, D, E A = 1.0/3.0 B = 4.0*A - 1.0 C = 3.0*B - 1.0 D = 0.5*C E = ABS(D) WRITE(*,*) ' mu = ', E END PROGRAM EPSILON

Еще в разделе: (Показать все результаты (>5690) - crydee.sai.msu.ru/ )

• http://star.arm.ac.uk/f77to90/code/test_dyn.f90
• http://star.arm.ac.uk/f77to90/code/test_qu2.f90
• http://star.arm.ac.uk/f77to90/code/test_qua.f90

program tripos1 implicit none real :: p1, p2, p3, maths real :: av1, av2 ! read in the marks read(*,*) p1, p2, p3, maths ! work out the two averages av1 = p1 + p2 + p3 av2 = av1 + maths av1 = av1 / 3.0 ; av2 = av2 / 4.0 ! use an if statement if (av2 > av1) then write(*,*) 'Final average = ',av2 else write(*,*) 'Final average = ',av1 end if end program tripos1

Еще в разделе: (Показать все результаты (>1796) - www.mrao.cam.ac.uk/ )

• http://www.mrao.cam.ac.uk/~rachael/compphys/examples/linalg.f90
• http://www.mrao.cam.ac.uk/~rachael/compphys/Lecture%201.pdf
• http://www.mrao.cam.ac.uk/~rachael/compphys/examples/newton.f90

Sometimes we require more than one line for a statement Print *, 'This is a long output line',& ' this is the second part',& ' and this is the third part!' Nowadays, in the free form, we continue a line with the symbol "&" (called ampersand), i.e. with the sign & at the end of the old line instead of an almost arbitrary character in column 6 of the new line. ... Exclamation mark in column 1 of course means a comment line also in the old fixed form. ... 3.1) What does the following line mean? ...

Еще в разделе: (Показать все результаты (>1698) - star.arm.ac.uk/ )

• Creating a filesystem
• SCL General Commands

... psrfits2fil converts AO psrfits files from the pdev spectrometer to sigproc filterbank program. This standalone routine will probably one day be incorporated in the sigproc filterbank program. psrfits data taken with the mock pdev spectrometer is scan based. ... The routine will read all of the psrfits files from a scan and output a single sigprog.fil file. ... Output to a single file with same format as input: . ... The psrfits files for the test data are located in /share/pdata1/pdev/ . ...

Еще в разделе: (Показать все результаты (>4701) - www.naic.edu/ )

• vxWorksPrograms
• The Evolution of Galaxies through the Neutral Hydrogen Window The Evolution of

... As long as you have completed the prerequisites, feel free to start on something new while still working on others. Prerequisite: None . Estimated time to complete: By the end of third day . ... Estimated time to complete: By the end of week two . Prerequisite: Editor skills from "Getting set up and ready" . Estimated time to complete: By the end of week three. ... Estimated time to complete: By the end of week one . ... Estimated time to complete: By the end of week four. ...

Еще в разделе: (Показать все результаты (>21225) - www.stsci.edu/ )

• Using APT to Write Big Phase II Programs
• Python T4:Using PyRAF: writing scripts and programs in Python: Demo Script
• CSPICE Routines: SPKW03_C

... Once "point" is read, assumes all the following x,y coordinates are points. ... Program asc2dxf c reads set of x,y coordinates and writes a .dxf file for aperture plate. character*4 xop1,xop2 character*12 outfile 1 format ( 1h0 /7hSECTION/1h2/8hENTITIES/ 1h0 ) 2 format (6hCIRCLE/1h8/1h1/2h62/1h3) 3 format (4hLINE/1h8/1h1/2h62/1h3) 4 format (5hPOINT/1h8/1h1/2h62/1h3) 5 format (2h10/5h43.00/2h20/5h43.00/2h30/5h0.000/2h40/5h43.00/ 1h0 ) 6 format (2h10,/,f6.3,/,2h20,/,f6.3,/,2h30/5h0.000) 7 ...

Еще в разделе: (Показать все результаты (>525) - www.mso.anu.edu.au/ )

• Computer Lab Webcasts
• Observational Techniques: Assignment 1

... TPINI: Reading tape initialization information from SCHED input file. STREAD: Reading station catalog: /nfs/atapplic/vlbi/sched/catalogs/stations.dat STREAD: Will read locations file /nfs/atapplic/vlbi/sched/catalogs/locations.dat SCHIN: Found 19 input scans. ... RDSET: Reading setup file: /nfs/atapplic/vlbi/sched/setups/lba13cm-2p-1IF.set GETFREQ: Reading frequency file: /nfs/atapplic/vlbi/sched/catalogs/freq.dat SHORTN: WARNING - Source names longer than 8 characters used. ...

Еще в разделе: (Показать все результаты (>28479) - www.atnf.csiro.au/ )

• http://www.atnf.csiro.au/pub/people/vlbi/vt02/vt02f/vt02f4/sched.runlog
• http://www.atnf.csiro.au/computing/software/gipsy/sub/wkey.dc2
• http://www.atnf.csiro.au/pub/people/vlbi/vt03/vt03a1/sched.runlog

Comedi Documentation . ... Right to the source: #include <stdio.h> /* for printf() */ #include <comedilib.h> int subdev = 0; /* change this to your input subdevice */ int chan = 0; /* change this to your channel */ int range = 0; /* more on this later */ int aref = AREF_GROUND; /* more on this later */ int main(int argc,char *argv[]) { comedi_t *it; lsampl_t data; it=comedi_open("/dev/comedi0"); comedi_data_read(it,subdev,chan,range,aref,&data); printf("%d\n",data); return 0; } . ...

Еще в разделе: (Показать все результаты (>1084) - jet.sao.ru/ )

• Writing Larger Programs
• Arrays and Strings
• Work Scan Program + Data Viewer (IDL widget)

... dt=1; N_half =round((N_ft-1)/2); freq =(1: N_half )/ N_ft /dt; % plot half of the spectrum without multiplication by 2 subplot(5,1,1); plot ( freq , abs (Ftrns_signal1(2: N_half +1))); title('amplitude spectrum 1') xlabel(' frequency ') subplot(5,1,2); plot ( freq , abs (Ftrns_signal2(2: N_half +1))); title('amplitude spectrum 2') xlabel(' frequency ') subplot(5,1,3); plot ( freq , ...

Еще в разделе: (Показать все результаты (>322) - lnfm1.sai.msu.ru/ )

• http://lnfm1.sai.msu.ru/grav/english/lecture/filtering/Lab2.m
• http://lnfm1.sai.msu.ru/grav/russian/lecture/filtr/labs/Lab6.m
• http://lnfm1.sai.msu.ru/grav/english/lecture/filtering/Lab6.m

Astronotes Armagh Planetarium's Stellar Blog! ... Space Flight . ... Science Fiction . UFOs and Fringe Science . ... Posted on April 1, 2015 | No Comments The тАШDog StarтАЩ or Sirius is a star that has its influential place in astronomical history. ... Continue Reading.. Posted on May 28, 2014 | ... Posted on November 19, 2013 | ... Posted on July 18, 2013 | ... Posted on May 29, 2013 | ... Posted on July 30, 2012 | ... Posted on April 19, 2012 | ... Posted on February 23, 2012 | ...

Еще в разделе: (Показать все результаты (>2773) - www.armaghplanet.com/ )

• space history | Astronotes - Part 5
• The end of the world | Astronotes
• Challenger: the end of innocence | Astronotes

... Argument: C-Type: (char *) (IN) Desc: Pointer to the text which we parse 2. ... Argument: C-Type: (char **) (OUT) Desc: token text 3. ... LexDescr * descr = (LexDescr *) palloc(sizeof(LexDescr) * (2+1)); /* there are only two types in this parser */ descr [0].lexid = 3; descr [0].alias = pstrdup( word ); descr [0]. descr = pstrdup( Word ); descr [1].lexid = 12; descr [1].alias = pstrdup( blank ); descr [1]. descr = pstrdup( Space symbols ); descr [2].lexid = 0; PG_RETURN_POINTER( ...

Еще в разделе: (Показать все результаты (>1008) - www.sai.msu.su/ )

• Oleg Bartunov's Home Page
• APOD: 2003 March 3 - Will the Universe End in a Big Rip?
• APOD: 2000 April 17 - Flying Over Asteroid Eros West End

ADASS 97 Final Program . ... Program At-A-Glance . ... Registration; Poster and Demo set-up . ... Session 1: Computational Astrophysics etc. ... COFFEE BREAK / POSTERS / DEMOS . ... Session 2: Applications . ... LUNCH BREAK / POSTERS / DEMOS . ... Session 3: Computational Infrastructure . ... Session 5 : Data Analysis Applications . ... BOF Room A . ... Session 7 : Data Flow and Scheduling - I . ... LUNCH BREAK / POSTERS . ... COFFEE BREAK / POSTERS . ... Session 10: Astrostatistics/Data Bases . ...

Еще в разделе: (Показать все результаты (>204) - www.stecf.org/ )

... With the endorsement of the Board of Directors, we are refining the way we articulate our mission as a means to a higher end: the ASP will continue to work toward increasing the understanding and appreciation of astronomy through scientists, educators, enthusiasts, and the public as a vehicle for advancing science literacy and exchange. ... Our education, public outreach, and other programs continue to be as strong and respected as ever in advancing our rearticulated mission. ...

Еще в разделе: (Показать все результаты (>1076) - www.astrosociety.org/ )

• ASP's 2012 Annual Meeting
• Black Holes: The End of Time or a New Beginning? Astronomical Society
• ASP: National Astronomy Education Projects

Stellarium 0.12.3 . ... Plugins . ... File Structure . File List . File Members . plugins . TelescopeControl . src . servers . Lx200Command.hpp . ... 2   The stellarium telescope library helps building . 3   telescope server programs, that can communicate with stellarium . ... 5   It also contains smaple server classes (dummy, Meade LX200). ... 7   Author and Copyright of this file and of the stellarium telescope library: . ... 50   Lx200Command ( Server &server); . ...

Еще в разделе: (Показать все результаты (>1009) - astro.uni-altai.ru/ )

• Stellarium: core/modules/GridLinesMgr.hpp Source File
• Stellarium: Scripting Engine
• Stellarium: core/modules/ConstellationMgr.hpp Source File

samp2fits.pro ; make an AREF file with all of Pete's sample ARFs ; ;usage ; arfdef='obs866/acis.arf' ; arfdir='store_arfs' ; arfroot='866' ; .run samp2fits ; ; reads ... _samp_aref.fits ; ;vinay k (Sep2009, based on pca2fits_Cedge.pro) ; updated initialization (VK; Jun2014) ;- ; initialize if not keyword_set (arfdef) then arfdef='obs866/acis.arf' if not keyword_set (arfdir) then arfdir='store_arfs/' if not ...

Еще в разделе: (Показать все результаты (>2431) - hea-www.harvard.edu/ )

• Tcl/Tk Front-End for free mpeg player from MpegTV.com
• SAO Summer Intern Program 2010
• SAO Summer Intern Program 2014

... The generalized aperture program is designed to simulate the effects on the incident photon stream of physical obstructions, such as thermal baffles and pre- and post-collimators. ... The philosophy behind the aperture program is that a geometrically complicated aperture may be modeled by a combination of geometrically simpler apertures. ... The generalized aperture program takes a list of assemblies and apertures created by the front end, and compares each input photon to the apertures, in turn. ...

Еще в разделе: (Показать все результаты (>1426) - www.adass.org/ )

• A Graphical Front End for the WIYN Telescope Engineering Data System
• WIP -- An Interactive Graphics Software Package
• ADASS 2003 Conference Proceedings

... for the last iteration a larger grid is used in order to get an error ! estimate END modify/write the x-ray list end subroutine eposcorr subroutine find_offset x_shift= y_shift =0 LOOP over x_offset grid elements LOOP over y_offset grid elements call subroutine likelihood store likelihood in array IF likelihood best likelihood THEN update best likelihood , x_shift=x_offset , y_shift=y_offset END LOOP END LOOP xm = ym = 0 ...

Еще в разделе: (Показать все результаты (>10733) - xmm.vilspa.esa.es/ )

• XMM Science Objectives

Previous Editions of the M111: . ... OutReach Training and Program . September Public Night . Welcome all ye weary travelers to a new type of M111 "On Line". ... Back to top.. ... When I logged our last outreach programs I couldn't help but notice that Warren Rupp Observatory is NUMBER FIVE in the worldwide standings in public outreach programs! ... If you'd like to train in astronomy outreach, just contact any of our members and we'll be happy to train you to do public outreach! ...

Еще в разделе: (Показать все результаты (>105) - www.wro.org/ )

... Apache HTTP Server Version 2.2 . Apache > HTTP Server > Documentation > Version 2.2 > FAQ . Available Languages: en | ... Symptoms of this problem include the above message in the error log and zero-length responses to non-zero-sized files. ... A Permission denied error in the error_log , accompanied by a Forbidden message to the client usually indicates a problem with your filesystem permissions, rather than a problem in the Apache HTTP Server configuration files. ...

Еще в разделе: (Показать все результаты (>1750) - www.sao.ru/ )

• Preliminaries
• JavaScript Mail Filters in Navigator 4.0
• MIDAS Command Language

... Pre-university education . ... Samara region . SSAU History . ... The 3rd International School and Conference . ... Starts 28.03.2016 , end 30.03.2016 . ... II All-Russian scientific and practical conference with international participation 'Universities of Russia in a dialogue with time' . ... International Scientific and Technical Conference "Cybernetics and High Technologies of XXI Century . ... International Scientific and Technical Conference "Advanced Information Technologies AIT-2015" . ...

Еще в разделе: (Показать все результаты (>1584) - www.ssau.ru/ )

• Suchkova Svetlana Anatolevna
• Skuratov Dmitriy Leonidovich