zrhans

program gases_ideais
implicit none
 
real :: T,P,N,VOLUME
real :: le_valor, gas_ideal
 
    T = le_valor('o valor da temperatura');
    P = le_valor('o valor da pressão');
    N = le_valor('o numero de mols');
 

zrhans

program testingist
implicit none

integer :: i

i=3

print *,"Hello the value of i:",i

end program testingist

zrhans

$(document).ready(function() {

    $('#submit_item').click(function() {

        var item = $('#item').val();

        $.post("demo/process", {
                "item": item
            }, function(data) {
                console.log(data.result);

zrhans

$(document).ready(function() {

    $('#submit_item').click(function() {

        var item = $('#item').val();

        $.post("demo/process", {
                "item": item
            }, function(data) {
                console.log(data.result);

zrhans

# Add the Oracle JDK Repos
UBUNTU_VERSION=precise
echo "deb http://ppa.launchpad.net/webupd8team/java/ubuntu ${UBUNTU_VERSION} main" | tee /etc/apt/sources.list.d/webupd8team-java.list
echo "deb-src http://ppa.launchpad.net/webupd8team/java/ubuntu ${UBUNTU_VERSION} main" | tee -a /etc/apt/sources.list.d/webupd8team-java.list
apt-key adv --keyserver keyserver.ubuntu.com --recv-keys EEA14886
DEBIAN_FRONTEND="noninteractive" apt-get update

# Accept the Oracle License
echo "oracle-java7-installer  shared/accepted-oracle-license-v1-1 boolean true" > /tmp/oracle-license-debconf
/usr/bin/debconf-set-selections /tmp/oracle-license-debconf

zrhans

<?php

function downloadFile($file,$name,$mime_type=''){
    /*
    This function takes a path to a file to output ($file),
    the filename that the browser will see ($name) and
    the MIME type of the file ($mime_type, optional).

    If you want to do something on download abort/finish,
    register_shutdown_function('function_name');

zrhans

function string_concat(s1, s2)                             ! This is a comment
   TYPE (string), INTENT(IN) :: s1, s2
   TYPE (string) string_concat
   string_concat%string_data = s1%string_data(1:s1%length) // &
      s2%string_data(1:s2%length)                          ! This is a continuation
   string_concat%length = s1%length + s2%length
end fuction string_concat

zrhans

 MODULE string_type
    IMPLICIT NONE
    TYPE string80
       INTEGER length
       CHARACTER(LEN=80)   :: string_data
    END TYPE string80
    INTERFACE ASSIGNMENT(=)
       MODULE PROCEDURE c_to_s_assign, s_to_c_assign
    END INTERFACE
    INTERFACE OPERATOR(//)

zrhans

ex      .true.
op      .true.
nam      cities
acc      DIRECT
seq      NO
frm      UNFORMATTED
irec     100
nr       1

zrhans

INTEGER(KIND=2) :: i
REAL(KIND=long) :: a
COMPLEX :: current
LOGICAL :: Pravda
CHARACTER(LEN=20) :: word
CHARACTER(LEN=2, KIND=Kanji) :: kanji_word